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PREFACE 


This COBOL Reference Manual and a companion manual, the COBOL User's Guide, 
have been prepared for Series 60 and Series 6000 users. 


This manual is organized in a format similar to that used in the Conference 
on Data Systems Languages (CODASYL) COBOL Journal of Development (JOD). It is 
intended to be strictly a language reference document containing the formats, 
syntax rules, general rules, and special considerations required to construct a 
COBOL source program. The contents of the manual reflect (a) Series 60/6000 
COBOL as it relates to the Series 60/6000 operating system; (b) implemented 
elements of CODASYL COBOL as published in the JOD; and (c) American National 
Standard COBOL (X3.23-1968). The highest level of American National Standard 
implementation is presented for all modules, with some minor ,.exceptions 
indicated by delta (A) symbols. 


As a supplement to the COBOL Reference Manual, the COBOL User's Guide 


provides information concerning COBOL concepts, Series 60/6000 implementation 


techniques, internal compiler characteristics, and efficiency considerations. In 
addition, sample deck setups and job control data are provided to assist the 
user in interfacing with the operating system. 


The following language elements, defined in previous versions of the COBOL 
specifications, have been deleted from CODASYL COBOL and are not included in 
American National Standard COBOL; however, they are still supported by Series 
60/6000 COBOL in the current state of implementation: 


® Figurative constants: HIGH-BOUNDS and LOW-BOUNDS 
& PREPARED option 
& Constant Section 
* CLASS clause 
® Editing clauses 
® FILE CONTAINS clause 
* POINT LOCATION clause 
a RANGE clause 
% SEQUENCED clause 
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e SIGNED clause 
& SIZE clause 


gs Conditional statement If «2 «OTHERWISE... THEN. «<< 


As a continuing policy of conforming to COBOL standards and encouraging 
program transferability, documentation of the above language elements has’ been 
deleted from this manual. For a detailed description of the obsolete language 
elements, refer to Section XVII of the COBOL User's Guide. 


Series 60 Level 66 is hereafter referred to as Series 60. The technical 
information contained in this manual refers to both the Series 6000 and Series 
60 systems, unless otherwise specifically stated. 
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SECTION I 


INTRODUCTION 


COBOL is an acronym for the phrase COmmon Business Oriented Language. The 
COBOL system, which includes a compiler (or language processor) in addition to 
the COBOL language, is used to state all the facets of a business-oriented 
problem and to convert the statements into a form usable by a computer. The 
following sections of this manual describe the COBOL language. The COBOL 
compiler is not described since the purpose of this manual is to give the user 
an insight into using the language to state the problem most efficiently. A 
description of the components of the compiler or how the compiler converts the 
statement of the problem into the ones and zeros a computer uses is not germane 
to using the COBOL language. This manual, therefore, is for those who understand 
business-oriented problems and the concepts of data processing. 


A business-oriented data processing problem can be broken down into four 
distinct groups of logically related information. The first is the 
identification of the problem such as, is it an inventory control problem, a 
personnel accounting problem, a payroll problem, or a billing problem? Also 
included in this group is information such as the assignment to solve the 
problem, when, and where. The second group of logically related information is 
the data processing environment in which the problem is to be solved. That is, 
what computer will be used to compile the program and run _ the job? What 
peripheral equipment is necessary to run _ the job? What other programs (or 
software) are necessary? The information in this group is also useful when a 
program has been written for one computer environment and it is desired to run 
it in axother computer environment. The third group of logically related 
information is that in which the data to be processed and the processed data is 
described. Each file, both input and output, is described in terms of its 
records. Each unique type of record in a file is described in terms of its 
unique data items. In addition to this, the organization of the files must be 
described and the processing mode to be used must be stated. These three groups 
of logically related information; the identification of the problem, the 
information related to the data processing environment, and the description of 
the data, can be considered as the problem statement. The fourth group of 
logically related information can be considered as the procedure(s) by which the 
data is to be processed to solve the problem. In this group of information, the 
user states in a step-by-step manner exactly what is to be done to the data to 
produce new or additional data. 


The COBOL language is structured to accommodate the four groups of 
logically related information in four named divisions. These divisions are the 
Identification Division, the Environment Division, the Data Division, and the 
Procedure Division. Every COBOL program contains these four divisions in the 
above order. The Identification Division is used to identify by name the source 
program (that which the user writes) and the outputs of a compilation. Other 
information that can be included in the Identification Division is the name of 
the programmer, the name of the installation at which the program was written, 
the date the program was written, the date of compilation, and any other desired 
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information such as a brief statement of the purpose of the program. The 
Environment Division is that part of the program in which the computer(s) to be 
used for compiling and running the program is described. In _ the Environment 
Division, names may be assigned to peripheral equipment and the features of the 
files directly related to the hardware may be described. In the Data Division, 
the files of data the program processes or creates and the unique individual 
records of these files are described. Data is written according to a standard 
data format rather than an equipment- -oriented format. In the Procedure Division, 
a step-by-step logical process is written to instruct the computer to process 
the input data. 


In the Identification Division, the problem is identified by name, which 
may or may not reflect the type of problem. For instance, the problem may be 
named INVCON (for Inventory Control) but the type of inventory control problem 
may be a combination of updating a master inventory file and producing records 
from which new parts can be ordered. COBOL, being a business problem oriented 
language, incorporates features that make it possible to accomplish a particular 
job without programming the job in detail. The COBOL language allows the user to 
perform arithmetic calculations, edit data, sort data, mer ata, and produce 
reports. A single COBOL program can perform one or _ any combination of these 
functions. 
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SECTION II 


FUNCTIONAL CONCEPTS 


GENERAL DESCRIPTION OF COBOL 


COBOL is a programming language used throughout the world for programming 
business data processing applications. The COBOL language was developed by a 
group of computer users and manufacturers, and first documentation was 
distributed in April, 1960. Since then it has undergone many changes’ and 
extensions resulting from manufacturer experience with COBOL implementation and 
user experience with COBOL programming for computers of many sizes and 
configurations. The improvements are embodied in this version of the language 
termed COBOL-68. 


COBOL allows computers to be programmed in a language that is similar to 
the English language. English paragraphs, sentences, and phrases are written, 
following the conventions of a standard reference format, to describe the data 
to be processed and to specify the required procedures. The resulting text is 
called a COBOL 'source program'. 


The source program text consists of lines containing a maximum of 80 
Characters and is often keypunched on 80-column cards. The source program is 
submitted as input to the computer under the control of a special program known 
as a compiler. As output, the compiler produces an object program on punched 
cards, magnetic tape, or other suitable storage media. The object program is the 
actual sequence of machine instructions required to accomplish the functions 
specified in the source program. In addition, the compiler produces an edited 
listing, which includes an annotated printout of the source program in the 
reference format. Another important function of the compiler is to analyze the 
source program for correct COBOL syntax, and to print error comments for any 
Syntax errors that are detected. The computer's operation under control of the 
compiler is called compilation. 


COBOL FUNCTIONAL CONCEPTS 


The Procedure Division in COBOL corresponds to the overall program in some 
other programming languages. In COBOL, however, the Data Division also plays a 
central role. Procedural statements are formed by combining COBOL reserved 
words, literals, and data-names. 


The COBOL object program typically processes one or more files of data 
records, and the user exercises considerable control over the actual physical 
format of each record. A record can contain a few or many individual items of 
data; the respective items within a record may have quite different formats, and 
may be related to each other in complex ways. A file can contain several 
distinct record types. 
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In the File Section of the Data Division, the user provides a description 
of each file, including: 


# The types of data records in the file. 
& The various data items of which each record is composed. 
® The detailed format of each item. 


The user assigns a name (data=name) to each file, record, and data item, to 
permit references elsewhere in the source program. 


The concept of records is extended to working-storage data items that do 
not belong to files. Records in working-storage are described in exactly the 
same manner as records belonging to files, and can have equal complexity. It is 
also possible to describe independent Working-Storage Section data items that 
are not structured into records. 


In the Procedure Division, many different types of statements may be 
utilized, to accomplish such functions as the following: 


@ Reading a record from an input file. 
& Writing a record on an output file. 
® Moving data to or from the current record of an input or output file, 


or to or from a working=-storage data item. The unit of data moved can 
be the entire contents of a record or the contents of a data item 
Within a record. 


@ Using the values of various items, calculating a new value 
arithmetically through addition, subtraction, multiplication, or 
division, and storing the new value in a specified item. 


® Comparing the values of data items, and executing alternative sets of 
statements depending upon the outcome of the comparison. 


® Transferring control, so that execution continues in another part of 
the program. A transfer of control may include provision for control 
to be returned when a specified point is reached, or the return 
provision may be omitted. 


2 Generating a line (or set of lines) for a report. 


® Sorting OF mer may 
present the roroyas one by one as sorting 6 fi takes place or an 
entire file may be submitted, with input housekeeping implicitly 
provided. Similarly, an output file may be produced implicitly, or 
procedural statements may receive the records one by one as their 
final order is established. 
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8 Obtaining special information, such as current date and time of day, 
from GCOS; or accomplishing low-volume data transmission. 


8 Beginning and concluding processing of each file. 
@ Beginning and concluding presentation of each report. 
® Setting procedural switches; in effect, changing the destinations of 


GO TO statements during execution of the object program. 


® 

& 

% Manipulating an item character by character, changing or counting 
certain character values. 

® Concluding execution of the object program. 

© Causing user-Ssupplied procedures to receive control during the 
implementation of certain otherwise automatic input-output and 
reporting functions. 

® Enhancing source program documentation with explanatory notes. 

@ Accomplishing special functions that are not defined in the COBOL 
language specifications but are available in other languages. For 
example, transferring control to another separately compiled or 
assembled program, or executing an arbitrary sequence of GMAP 
instructions. 

e Explicitiy defining ‘control exLt points; enhancing programming 


convenience. 


In addition to the preceding Procedure Division functions, COBOL contains 
sorting, me | report writing, table handling, mass storage, and segmentation 
features. 


RECORD ORDERING 


The ability to arrange records into a particular order or eagles is a 
common requirement of a data processing user. The sort rge features of 
COBOL provide facilities to meet this requirement. 


While both of these features are concerned with record ordering, the 
functions and capabilities of the SORT and MERGE statements are different in a 


unordered 


allow for 


2 pasa Saxe 
provided with an optional input 
are provided with optional 


1S 


output procedures. 
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Sorting 


Sorting constitutes a significant percentage of the workload ina business 
data processing operation. Therefore, an efficient sort program is required in 
any business software system. 


In many sort functions, it is necessary to apply special processing to’ the 
contents of a sort file. This processing may consist of adding, deleting, 
creating, altering, editing, or other modification of the individual records in 
the file. It may be necessary to apply the special processing before or after 
the records are reordered by the sort, or the processing may possibly be 
required in both cases. The COBOL sort feature allows the user to express these 
procedures in the COBOL language and to specify at which point, before or after 
the sort, they are to be executed. A COBOL program may contain any number of 
sorts, and each of them may have independent special procedures. The sort 
feature automatically causes these procedures to be executed at the specified 
point in such a way that extra passes over the sort file are not required. 


The normal organization of a COBOL program containing a sort is such that 
the input file is read and operated upon by an input procedure. Within this 
input procedure, the RELEASE statement is used to create the sort file. That is, 
at the conclusion of the input procedure, the sort file is composed of those 
records that have been output by using the RELEASE statement rather than the 
WRITE statement, and this file is available only to the SORT statement. The 
execution of the SORT statement arranges the entire set of records in the _ sort 
file according to the keys specified in the SORT statement. The sorted records 
are made available from the sort file using the RETURN statement during the 
output procedure. 


The sort file has no label procedures which the user can control; the rules 
for blocking and for allocation of internal storage are peculiar to the SORT 
statement. The RELEASE and RETURN statements imply nothing with respect’ to 
buffer areas, blocks, or reels. A sort file, then, may be considered as _ an 
internal file which is created from the input file (RELEASE), processed (SORT), 
and then made available to the output file (RETURN). The sort file itself is 
referred to and accessed only by the SORT statement. 


For additional information concerning the sort process, refer to Section IX 
of the COBOL User's Guide. 
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REPORT WRITING 


The production of reports has always placed a heavy burden in terms of 
machine time and programmer time on the business data processing user. The 
Report Writer feature is available to specify and produce reports quickly and 
accurately in COBOL. The Report Writer allows the user to describe reports 
pictorially in the Data Division, thereby minimizing the amount of Procedure 
Division coding necessary. In the Report Writer feature, the physical aspects of 
the report format must be distinguished from the conceptual characteristics of 
the data in the report. 


When describing the physical aspects of the report, consideration must _ be 
given to the hardware device on which the report is to be written and to the 
structure and format of the individual page. Facilities for specifying this 
information are included in the Report Writer entries. 


The concept of a hierarchy of levels is used in defining the logical 
organization of the report. Each report is divided into report groups which in 
turn are divided into sequences of items. The use of a level structure permits 
the user to refer to an entire report-name, major or minor report groups, 
elementary items within report groups, etc. 


In creating the report, the user must define necessary report groups. A 
report group may be of any of the following; HEADING group, FOOTING group, 
CONTROL group, or DETAIL PRINT group. A report group may extend over several 
actual lines on the page. 


The report description entry contains information pertinent to the overall 
format of the named report and uses the level indicator RD. The characteristics 
of the report page are outlined by describing the number of physical lines per 
page and specifying the limits for presentation of headings, footings, and 
detail lines. Data items that act as format controls for a report are specified 
in the RD entry. Each report associated with an output file must be defined by 
an RD-entry. 


A report group is a set of data that is composed of several print lines 
consisting of many data items or one print line containing only one data item. A 
report group description entry contains, in addition to other information, a 
level-number and a TYPE description. The level-number indicates the relative 
position in the data hierarchy of the report groups, and the TYPE clause 
describes the purpose of the report group in terms of its presentation within 
the report. 
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Specifically, the report group description entry defines the format and 
characteristics for a report group, whether this group is a line, a series of 
lines, or an elementary item. The relative placement of items within a report 
group, the level of a particular report group within the hierarchy of report 
groups, the format of all items, and any control factors associated with the 
group are defined in this entry. 


Schematically, a report group is a line or a series of lines. The length of 
a line is determined by the compiler from environmental specifications. 
Initially, the lines consist of all spaces. Within a report, the order of the 
individual report groups is not significant. Within a report group, the user 
describes the elements consecutively from left to right and then from top to 
bottom. The description of a report group is analogous to the description of a 
data record except that in the report group spaces are assumed where no specific 
entry is indicated for presentation, while in the data record every character 
position must be explicitly defined, regardless of its data content. Report 
Writing is discussed in more detail in Section VIII of the COBOL User's Guide. 


TABLE HANDLING 


Tables of data are common components of business data processing problems. 
Although the items that make up a table could be described as contiguous data 
items, there are two reasons why this approach is not satisfactory. First, from 
a documentation standpoint, the underlying homogeneity of the items would not be 
readily apparent; and second, it would be difficult to make an individual 
element of such a table available if a decision is required to make one of these 
elements available at object program execution. 


Tables composed of contiguous data items are defined in COBOL by including 
the OCCURS clause in their data description entries. This clause specifies that 
the item is to be repeated as many times as stated. The item is considered to be 
a table element and its name and description apply to each repetition or 
occurrence. Since each occurrence of a table element does not have a unique 
data-name assigned to it, reference to a desired occurrence may be made only by 
specifying the data-name of the table ‘element together with the occurrence 
number of the desired table element. The occurrence number is known as a 
subscript, and the technique of specifying individual table elements is called 
subscripting. 


The number of occurrences of a table element may be specified as fixed or 
variable. If the occurrence number is given in the source program as fixed, the 
actual data that is entered into the table at object program execution may still 
be composed of a variable number of occurrences of the table elements. Thus, not 
every table element must contain valid data. 


To manipulate specific items and provide table searching, a technique 
called indexing is also available. Both subscripting and indexing are described 
below. 


Table Definition 


To define a one-dimensional table, an OCCURS clause is used as part of the 
data description of the table element, but the OCCURS clause must not appear in 
the description of group items which contain the table element. Example 1 shows 
a one-dimensional table defined by the item TABLE-ELEMENT. 


Z=6 DD25 


Example 1: 


02 TABLE-1. 
03 TABLE-ELEMENT;: OCCURS 20 TIMES, 
04 DOG; ... 


Oa: “FOR «ey 


In the preceding example, the complete set of occurrences of TABLE-ELEMENT 
has been assigned the name TABLE-1. However, it is not necessary to assign a 
group name to the table unless it is desired to refer to the complete table as a 
group item. 


Defining a one-dimensional table within each occurrence of an element of 
another one-dimensional table produces a two-dimensional table. To define a 
two-dimensional table, then, an OCCURS clause must appear in the data 
description of the element of the table, and in the description of only one 
group item which contains that element. Thus, in Example 2 below, DOG is an 
element of a two-dimensional table; it occurs five times within each element of 
the item BAKER which itself occurs 20 times. BAKER is an element of a 
one-dimensional table. 


Example 2: 


OZ BAKER? OCCURS 20 TIMES? «a 
US “CHARELES os 


G3" DOG} OCCURE 3 PIMESs <o 4's 


In the general case, to define an n-dimensional table, the OCCURS clause 
should appear in the data description of the element of the table and in the 
descriptions of (n-1l) group items that contain the element. In COBOL, tables of 
up to three dimensions are permitted; n cannot exceed three in the foregoing 
definition. 


Initial Values of Tables 


In the Working-Storage Section, initial values of elements within tables 
are specified in one of the following ways: 


a The table may be described as a record by a set of contiguous data 
description entries, each of which specifies the VALUE of an element, 
or part of an element, of the table. In defining the record and its 
elements, any data description clause (USAGE, PICTURE, etc.) may be 
used to complete the definition where required. This form is required 
when the elements of the table need separate handling due to 
synchronization, usage, etc. The hierarchical structure of the table 
is then shown by using the REDEFINES entry and its associated 
subordinate entries. The subordinate entries (following the REDEFINES 
entry), which are repeated due to’ OCCURS clauses, must not contain 
VALUE clauses. 
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@ When the elements of the table do not require separate handling, the 
VALUE of the entire table may be given in the entry defining the 
entire table. The lower level entries will show the hierarchical 
structure of the table; lower level entries must not contain VALUE 
clauses. 


Reference to Table Items 


Whenever the user refers to a table element or, if the table element is a 
group item, to the items within it, or toa condition-name associated with the 
element or with items contained within the element, the reference must indicate 
which occurrence of the element is intended. For access to a one-dimensional 
table, the occurrence number of the desired element provides complete 
information. For tables of more than one dimension, an occurrence number must be 
supplied for each dimension of the table. In Example 2 then, a reference to the 
4th BAKER or the 4th CHARLIE would be complete, whereas a reference to the 4th 
DOG would not. To refer to DOG, which is an element of a two-dimensional table, 
the user must refer to, for example, the 4th DOG in the 5th BAKER. 


Subscripting 


One method by which occurrence numbers may be specified is to append one or 
more subscripts to the data-name. A subscript is an integer whose value 
specifies the occurrence number of an element within the group item that has the 
next lower level-number. The subscript can be represented either by a literal 
which is an integer or by a data-name which is defined elsewhere as a numeric 
elementary item with no character positions to the right of the assumed decimal 
point. In either case, the subscript, enclosed in parentheses, is written 
immediately following the name of the table element. A table element must 
include as many subscripts as there are dimensions in the table whose element is 
being referred to. That is, there must be a subscript for each OCCURS clause in 
the hierarchy containing the data-name, including the data-name itself. 


Example = 


02 BAKER; OCCURS 20 TIMES; ... 
O3 CHARGIE; «4. 
03 DOG; OCCURS 5 TIMES 
O24 EASY? ««'* 
88 MAX; VALUE IS ... 
Ga POMS: sa 
05 GEORGE; OCCURS 10 TIMES; ... 
06 HARRY? .s. 
O6- ZIM; 24% 
In Example 3, references to BAKER and CHARLIE require only one subscript; 


references to DOG, EASY, MAX, and FOX require two; and references to GEORGE, 
HARRY, and JIM require three. 
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When more than one subscript is required, the subscripts are written in the 
order corresponding to the occurrence numbers in successively less inclusive 
dimensions of the data organization. If a multidimensional table is thought of 
as a series of nested tables and the most inclusive or outermost table in the 
nest is considered to be the major table with the innermost or least inclusive 
table being the minor table, then the subscripts are written from left to right 
in the order major, intermediate, and minor. Thus, in Example 3, a reference to 
HARRY (18 2 7) means the HARRY in the 7th GEORGE, in the 2nd DOG, in the 18th 
BAKER, 


A reference to an item must not be subscripted if the item is not a table 
element or an item or condition=-name within a table element. 


The lowest permissible subscript value is one (1). The highest permissible 
subscript value in any particular case is the maximum number of occurrences of 
the item as specified in the OCCURS clause. 


When a data=name is used as a subscript, it may be used to refer to items 
within many different tables. These tables need not have elements of the same 
Size. The data-name may also appear as the only subscript with one item and as 
one of two or three subscripts with another item. It is also permissible to mix 
literal and data=name subscripts; for example, HARRY (12 NEWKEY 2). 


Indexing 


Another method of referring to items in a table is indexing. To use this 
technique, one or more index-names are assigned to an item whose data 
description contains an OCCURS clause. The INDEXED BY phrase, by which the 
index-name is identified and associated with its table, is an optional part of 
the OCCURS clause. There is no separate entry to describe the index-name since 
its definition is provided by the compiler and it is not considered data per se. 
At object program execution, the contents of the index-name will correspond to 
an occurrence number for that specific dimension of the table to which the 
index-name was assigned. The initial value of an index-name at object program 
execution is not determinable and the index-name must be initialized by the SET 
statement before use. 


Example 4: 


O2. BAKER? OCCURS 20 TIMES: INDEXED BY Ix=1L2 
03 DOG? OCCURS 5 TIMES? INDEXED “BY EX=23- 2s: 
05 GEORGE; OCCURS 10 TIMES; INDEXED BY IX-3; PIC XXXX; ... 
In Example 4, references to BAKER require one subscript or the one index, 
IX-l; references to DOG require two subscripts or the two indexes IX-l, IxX=-2; 


and references to GEORGE require three subscripts or the three indexes IxX-l, 
IX-2, IX-3. 
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An index-name may be used as an operand only by the SET, SEARCH, or PERFORM 
statements, or by the word IF in a relation condition. An index-name cannot be 
described as data within a COBOL program. Data items described by the USAGE IS 
INDEX clause permit storage of the values of index-names as data without 
conversion. Such data items are called index data items. 


When a reference is made to a table element, or to an item within a table 
element, and the name of the item is followed by its related index-name(s) in 
parentheses, then each occurrence number required to complete the reference will 
be obtained from the respective index-name. The index-name thus acts as a 
subscript whose value is used in any table reference that specifies indexing. 


When a reference requires more than one occurrence number for completeness, 
a data-name subscript must not be used to indicate one occurrence number and an 
index-name to indicate another. Therefore, if indexing is to be used, each 
OCCURS clause within the hierarchy (each dimension of the table) must contain an 
INDEXED BY phrase. The user may, however, mix literals and index-names within 
one reference, just as literals and data-name subscripts may be mixed. 


When a statement that refers to an indexed table element is executed, the 
value of the index-name associated with the table element must not correspond to 
a value less than 1 nor to a value greater than the highest permissible 
subscript value for the table element. 


The use of subscripting in a reference to a table element, or to an item 
within a table element, will not cause alteration of any index-names associated 
with that table. 


Relative indexing is an additional option for making references to a_ table 
element or to an item within a table element. When the name of the table element 
is followed by an index in the form (index-name + integer-l1), the occurrence 
number required to complete the reference will be the same as if integer-l were 
added to the occurrence number to which the current setting of the index-name 
corresponds at object program execution. Similarly, when the form (index-name - 
integer-2) is used, the occurrence number obtained will be the same as if 
integer-2 were subtracted from the occurrence number to which the current 
setting of the index-name corresponds. 


Relative indexing will not cause the object program to alter the value of 
the index-name. 


A reference to an item must not be indexed by an index-name that is not 
associated (using the INDEXED BY phrase) with the table of which this item is an 
element. 


Data that has been arranged in the form of a table is very often searched. 
In COBOL, the SEARCH statement provides facilities, through its two options, for 
producing serial and nonserial (i.e., binary) searches. In the SEARCH statement, 
the user may vary an associated index-name or an associated data-name. This 
statement also provides facilities for executing imperative-statements when 
certain conditions are true and an AT END phrase is included. 


For additional information concerning table handling, refer to Section XIII 
of the COBOL User's Guide. 
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MASS STORAGE 


The operational characteristics and the processing requirements of mass 
storage devices differ significantly from those of magnetic tape, punched paper 
tape, and punched cards. Tape and card files are normally organized in a 
sequential manner; the Data and Procedure Divisions of COBOL, prior to the 
inclusion of the mass storage facility, reflected these characteristics. 


Mass storage media can be used to store sequentially organized files and 
this technique has been provided; more significantly, mass storage devices have 
been designed to provide nonsequential storage and access capabilities. 


The mass storage feature of COBOL provides for the effective use of mass 
storage devices. Mass storage phrases are included in the Environment Division 
to describe the characteristics of mass storage files. The Procedure Division 
statement, SEEK, together with extensions to the OPEN, READ, WRITE, and CLOSE 
statements, provide facilities for efficiently processing mass storage files. 


Access and Processing Techniques 


The usual technique for applications using magnetic tape is sequential 
access to the data file and sequential processing of data records. This 
sequential-sequential technique is available for mass storage applications. 
Another technique for mass storage applications is called random access’ and 
sequential processing or the random-sequential technique. Either of these 
techniques may be specified by the user as the manner in which a particular mass 
Storage file is to be processed. 


A Mass Storage Control System provides the mechanism for control of these 
techniques. 


Sequential Access with Sequential Processing 


Although the sequential-access technique is similar in concept to the 
technique commonly used in processing magnetic tape files, a substantial 
difference exists between the physical environment of magnetic tape storage and 
the physical environment of mass storage. 


In processing magnetic tape files, the execution of a READ statement 
implies the possibility of physical movement of the tape reel and proper 
positioning of the reel for subsequent READ statement executions. This 
positioning is done without regard for execution of WRITE statements that 
reproduce the updated input record onto a physically different output file. In 
processing mass storage files, READ statements may refer to the same physical 
file as the associated WRITE statements. That is, mass storage files are usually 
used for input and output at the same time. The usual file maintenance method 
is to read a record, process the record, and return it to its previous location 
by means of a WRITE statement. Thus, once a record is located and read from a 
mass storage file, the record location may be retained and, when the record is 
returned to the file by the execution of a WRITE statement, the execution time 
for the WRITE statement may be reduced. 
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An ACTUAL KEY phrase, which specifies the actual hardware location of a 
specific mass storage record, is not required for the sequential-sequential 
technique. However, if the ACTUAL KEY phrase is specified, varying the contents 
of the data item specified in the ACTUAL KEY phrase (actual key) will not result 
in any variation in processing order. In the sequential-sequential mode, the 
actual key is updated automatically by the Mass Storage Control System to 
reflect the location of the mass storage record currently being processed. 
Between the execution of the READ and WRITE statements for a particular file, 
the contents of the actual key are static. 


The execution of a READ statement followed logically by the execution of a 
WRITE statement for the same input-output file results in an automatic updating 
of the actual key immediately after the execution of the WRITE statement. 
Similarly, the execution of a WRITE statement followed logically by the 
execution of another WRITE statement for the same file results in an automatic 
updating of the actual key after the execution of each WRITE statement. However, 
the execution of a READ statement followed logically. by the execution of another 
READ statement from the same file, without the intervening execution of a WRITE 
statement, results in the automatic updating of the actual key only immediately 
prior to the execution of the second READ statement. Following the execution of 
a WRITE statement, the contents of the actual key reflect the actual location of 
the next mass storage record capable of being processed. In terms of COBOL 
logic, this is the location of the current mass storage record. Since the 
automatic updating of the contents of the actual key is the function of the Mass 
Storage Control System and since the ACTUAL KEY phrase is never referred to or 
required by the Mass Storage Control System, any changes the user makes to the 
actual key do not affect the processing of the mass storage file. 


The imperative-statement in the AT END phrase associated with the next READ 
statement in order of execution is executed when the logical end of the mass 
storage file is detected. For WRITE statements, the detection of the logical end 
of a mass storage file before the execution of the CLOSE statement causes’ the 
contents of the actual key to reflect a location outside the environmental 
limits of the file. Since this value represents an erroneous location in the 
file, the INVALID KEY phrase associated with a particular WRITE statement is 
executed when that WRITE statement is executed. 


Random Access with Sequential Processing 


In the sequential-sequential technique, the data records in a mass_- storage 
file are read, processed, and written in an order based on the source program. 
The random-sequential technique differs only in that references are made to 
records in the file in a random manner. The sequential processing of randomly 
accessed records has all of the processing characteristics and file 
characteristics of the sequential-sequential method. 


To permit direct access to any data record in a file, the user must Specs ty 


control of an actual es is the 
implicit updating functions for an 


actual key. 


Dm Le DD25 


In some computer systems, the introduction of the random-access approach to 
a mass storage file requires the definition of an input-output statement (SEEK) 
to operate in conjunction with the READ and WRITE statements. Since locating 
records is always necessary in the random-sequential technique, the function of 
the SEEK statement is performed implicitly by a READ or WRITE statement when the 
SFEK statement is not specified. The contents of the actual key are used by the 
Mass Storage Control System as the desired record's location identifier at the 
time the implicit SEEK statement is executed. 


The SEEK statement, then, locates a record for subsequent reading or 
writing. On the computer it is not possible to separate physical seek times from 
the operations of reading or writing. Therefore, the SEEK statement is treated 
as a comment and no overlapping of other procedures is possible by its use prior 
to a READ or WRITE. 


If the user has specified random access for a mass storage file, there is 
no logical end to the file. Thus, the AT END phrase of the READ statement is 
meaningless and the INVALID KEY phrase must be specified for both the READ and 
WRITE statements. If, during execution of either a READ or a WRITE statement, 
the contents of the actual key reflect an actual location outside the 
environmental limits for a file (as defined on system file control cards), the 
imperative-statement in the INVALID KEY phrase is executed. 


For additional information concerning file processing, refer to Section V 
of the COBOL User's Guide. 


SEGMENTATION 


COBOL segmentation allows the user to communicate with the compiler to 
specify object program overlay requirements. Segmentation is concerned only with 
the segmentation of procedures. Therefore, only the Environment and Procedure 
Divisions are considered when determining segmentation requirements for an 
object program. 


Terminology 


With the advent of a standard concept of segmentation as an extension to 
COBOL, it has become necessary to revise terminology. Previously, the terms 
'segmentation' and 'segments' were used to denote capabilities associated with 
the operating system. Where these words are used now, they will apply only to 
the standard COBOL concept of segmentation as discussed in this manual. The term 
modularization will replace the previous usage of the term segmentation and the 
term module will replace the term segment. 


Program Segments 


The segmentation feature permits the user to subdivide the Procedure 
Division of a COBOL object program. All source paragraphs which contain the same 
priority-number in their section headers are considered to be one segment at 
object program execution. Since priority-numbers can range from 00 through 99, 
it is possible to subdivide any object program into a maximum of 100 segments. 
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The Procedure Division for a source program is usually written as a 
consecutive group of sections, each of which is composed of a series of closely 
related operations that are designed to collectively perform a particular 
function. When segmentation is used, the entire Procedure Division must be in 
sections. Each section must also be classified (using a priority-number) as 
belonging either to the fixed portion or to one of the independent segments of 
the object program. Segmentation in no way affects the need for qualification of 
procedure=names to ensure uniqueness. 


Fixed Portion 


The fixed portion is defined as that part of the object program which is 
logically treated as if it were always in memory. This portion of the program is 
composed of two types of segments: fixed permanent segments and fixed 
overlayable segments. 


A fixed permanent segment is a segment in the fixed portion which cannot be 
overlayed by any other part of the program. A fixed Overlayable segment is a 
segment in the fixed portion which, although logically treated as if it were 
always in memory, can be overlayed by another segment to Optimize memory 
utilization. A fixed overlayable segment, if called for by the program, is 
always made available in its last used state, 


Variation of the number of fixed permanent segments in the fixed portion 
can be accomplished by using a special facility called the SEGMENT-LIMIT phrase 
in the OBJECT-COMPUTER paragraph of the Environment Division. Unless the 
SEGMENT-LIMIT phrase is used, all segments numbered 00 through 49 are fixed 
permanent segments. However, if the user requires fixed overlayable segments, 
they are numbered from a user-specified value (01 through 49). The user 
indicates the lowest numbered segment which is to be fixed overlayable in the 
SEGMENT-LIMIT phrase. Therefore, the more fixed overlayable segments there are, 
the fewer fixed permanent segments there can be. Segment 00 is always fixed. 


The logical relationship between all segments numbered 00 through 49 is 
always the same, regardless of SEGMENT-LIMIT. For example, an altered GO TO 
statement which appears in a segment numbered 27 will remain altered, whether 
the segment is fixed permanent or fixed overlayable, until the execution of 
another ALTER statement; intervening overlays of the segment will not result in 
initialization of the segment. Therefore, COBOL paragraphs numbered 00 through 
49 can be written as if all such paragraphs were always fixed in memory, and 
subsequent changes in SEGMENT-LIMIT will have no effect on program logic. 


Independent Segments 


An independent segment is defined as part of the object program which can 
overlay, and can be overlayed by, either a fixed overlayable segment or another 
independent segment. An independent segment is effectively in its initial state 
each time the segment is made available to the program. Independent segments are 
numbered 50 through 99. 


For additional information concerning segmentation, refer to Section XV of 
the COBOL User's Guide. 


2-14 DD25 


USING A COBOL LIBRARY 


A COBOL library containing source program text that is available at 
compilation may be created. By creating a library file, the user can avoid 
lengthy repetitions of data descriptions and/or procedures in programs using 
common data descriptions and/or procedures. The effect of the compilation of 
library text is the same as if the text were actually written as part of the 
source program. The library may contain text for the Environment Division, the 


and by using the COPY statement in the Procedure Division. 


For a description of the COPY function, refer to Section VIII, the COBOL 
Library and to Section XIV of the COBOL User's Guide. 
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SECTION III 


LANGUAGE CONCEPTS 


LANGUAGE RELATIONSHIPS 


The English language is a natural language; that ig, it 28°. constantiy 
changing and its rules describe current usage. COBOL is a mechanical language. 
Its rules have been predefined and are rigid, which means that the rules of 
COBOL must be changed before the use of COBOL can change. 


As a mechanical language, COBOL is described as a higher level language. 
This means that COBOL is problem oriented, which has to do with the way data 
structures are defined. In lower level mechanical languages, the user must know 
the addressing structure of the computer as well as the way the computer 
structures data. In COBOL, knowledge of the computer's addressing structure is 
not required; data structures are defined according to the rules of COBOL rather 
than to the computer's rules. Because of this, COBOL is said to be a machine 
independent language. 


Machine independence means that COBOL can be translated into many machine 
languages. A machine language is the terminology that a computer can recognize. 
The COBOL described in this manual is translated into the Series 60/6000 
computer (machine) language. 


Any language, natural or mechanical, is concerned with syntax and 
semantics. Syntax is the relationship between the symbols of the language. The 
semantics of a language are the relationships between the symbols of the 
language and their meanings. These relationships (and certain other 
considerations) make up the rules of the language. The remainder of this 
section describes the semantics of COBOL. 


USER-CREATED SYMBOLS 


The first part of this section is concerned with user-created COBOL 
symbols. Only three types of COBOL symbols can be created; words, literals, and 
PICTURE character-strings. All symbols created by the user are called 
character-strings. A character-string is defined as a contiguous set of 
characters taken from the COBOL character set that forms a word, a literal, ora 
PICTURE character-string. A character-string can be as short as one character 
in length or may have as many as 132 characters. A character is an element of 
the COBOL alphabet, which is known as the standard character set. The elements 
(characters) of the COBOL alphabet (character set) are: 


SR PSS GIT RK EE MAO O RSP UW WwW x SS 
Pie ae 56 7 Bee ey Sek yg Se eet ee ee 


the blank or space. 
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There are 51 characters in the character set and only these characters can 
be used in character-strings. 


Words 


A COBOL word is a character-string of from one to 30 characters taken from 
the following subset of the COBOL character set: 


A through Z 
0 through 9 


the special character '-' (hyphen) 


When a COBOL word is formed, the special character '-" cannot be used as 
the first or last character of the word. A single COBOL word is often formed 
from two or more English language words. For example, COST-ANALYSIS is a single 
13-character COBOL word and 6-AT-7-VAC-TUBE is a 15-character COBOL word. COBOL 
words are created by the user to name or identify something; COBOL names’ that 
can be created are data-names, condition-names, procedure-names, and 
mnemonic-—names. 


DATA-NAMES 


The user creates a data-name to identify by name each data item described 
in the Data Division of the program or to identify by name the area that 
contains the data referred to in the Procedure Division. A data item can be an 
elementary item, a named group of elementary items within a record, or a record. 
An identifier is composed of a data-name, followed as required by a combination 
of qualifiers, subscripts, and/or indexes to make the identifier reference a 
unigue data item in the program. 


CONDITION-NAMES 


A condition-name is a word that names one or more of the values a data item 
can have when the object program is being executed. A data item that can have 
more than one value while the object program is being executed is called a 
variable. A conditional variable is a data item whose value, sets of values, or 
range of values have names. Condition-names are used in the Procedure Division 
in conditional statements; i.e., in statements beginning with the word IF. 
Condition-names can be defined in the Data Division in level 88 entries or under 
SPECIAL-NAMES in the Environment Division. Each condition-name created by the 
user must be unique or be made unique through qualification. 


PROCEDURE-NAMES 


Procedure-names are words used to name paragraphs or sections in the 
Procedure Division of the program. Procedure-names enable the user to make 
references from one paragraph or section to another. This facility allows’ the 
user to write a procedure once and then refer to it as often as necessary. When 
a procedure-name is composed of digits such as 00345, a reference to that 
procedure-name must contain the leading zeros. That is, 345 is not the same as 
00345. 
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MNEMONIC-NAMES 


A mnemonic=-name is a user-created COBOL word that is assigned to special 
names. Mnemonic-names are defined in the SPECIAL-NAMES paragraph of the 
Environment Division. The special names are names assigned by the computer 
system to certain input-output functions. Mnemonic-names do not have data 
descriptions in the Data Division. 


Literals 


The COBOL symbol type known as a literal is a user-created data item. That 
is, a literal is not a reference to data such as a data-name or identifier, but 
is the actual data to be operated on. A literal is a constant since its value 
never changes. The value of a literal is the characters that compose the 
literal. Two types of literals may be created, nonnumeric literals and numeric 
literals. 


NONNUMERIC LITERALS 


A nonnumeric literal can be. _ class alphanumeric 
and can be used only as a display item. This means that nonnumeric literals 
cannot be used in computations; a nonnumeric literal cannot be added to some 
data item. A nonnumeric literal is defined as a string of characters in the 
Series 60/6000 character set, excluding the quotation mark character, bounded by 
quotation marks. The user can create a nonnumeric literal that has only one 
character or has as many as 132 characters, not counting the quotation marks 
that delimit it. 


NUMERIC LITERALS 


A numeric literal must be class numeric but, unlike nonnumeric literals, a 
numeric literal can be used as a computational item as well as a display item. 
To create a numeric literal, only the digits (0 through 9), the + sign, the -. 
sign, and the decimal point may be used. No other characters are allowed in the 
construction of a numeric literal. When either the + or the - sign is used (only 
one of these can be used in each numeric literal), it must be the leftmost 
character of the literal. When neither sign is used, the literal is assumed _ to 
be positive. When the decimal point is used, it can appear in any character 
position of the literal except in the rightmost character position. If the 
decimal point is not used, the literal is an integer. Numeric literals may 
contain up to 18 digits and must contain at least one digit. The signs (+ and -) 
and the decimal point are not counted when applying this rule. 


PICTURE Character-Strings 


A PICTURE character-string is a special type of user-created COBOL symbol. 
The PICTURE character-strings that can be created are described in detail in the 
description of the PICTURE clause in the Data Division. 
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OTHER COBOL SYMBOLS 


This paragraph is concerned with COBOL symbols that are used by but not 
created by the programmer. These symbols are Figurative Constants, Names of 
Special Registers, Editing Symbols, Punctuation Symbols, Relation Symbols, 
Arithmetic Operation Symbols, and Reserved Words. 


Figurative Constants 


A constant is a data item whose value remains fixed, Certain constants have 
been assigned fixed data=-names, and are called figurative constants. A 
figurative constant may be used any place in the source program that a literal 
can be used except that wherever a numeric literal is required, the only 
figurative constant that can be employed is ZERO (or ZEROS or ZEROES). Although 
figurative constants may be specified in place of nonnumeric literals, this does 
not mean that figurative constants are delimited by quotation marks; they are 
not. Figurative constants are COBOL-defined symbols and are recognized as_ such 
by the compiler. Therefore, if a figurative constant is delimited by quotation 
marks, the result is a nonnumeric literal whose value is the word itself and not 
the value that the word implies. The figurative constants and their meanings 
are: 


ZERO ZEROS ZEROES: Represents the value 0 or one or more of the 
character 0, depending on the context in which it 
appears. 

SPACE SPACES: Represents one or more blanks or spaces. 


Represents one or more of the character Z. The @Z 
character is used as a high delimiter in processing 
data. 


Represents one or more of the character 0. The 0 
character is used as a low delimiter in processing 
data. 


HIGH-VALUE HIGH-VALUES : Represents one or more of the character $. The :! 
character has the highest value in the computer's 
collating sequence. 


LOW-VALUE LOW-VALUES: Represents one or more of the character 0. The 0 
character has the lowest value in the computer's 
collating sequence. 


QUOTE QUOTES: Represents one or more of the character ". Note that 


ALL literal: Represents one or more of the string of characters 

— composing the literal. The literal must be either a 
nonnumeric literal or any other figurative constant. 
When the word ALL is followed by a figurative 
constant, the word ALL is redundant and is included 
in the source program only for readability. 
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The singular and plural forms of the figurative constants are equivalent 
. and, therefore, may be used interchangeably. A figurative constant represents a 
string of characters. The number of characters in the string is determined by 

f-™ the compiler as follows: 


Ls When a figurative constant is associated with another data item, such 
as when the figurative constant is moved to or compared with another 
data item, the string of characters that the figurative constant 
represents is repeated character by character until the number of 
characters in the resulting string is equal to the number of 
characters specified as the size of the associated data item. 


he When a figurative constant is not associated with another data item, 
such as when the figurative constant appears in a DISPLAY, EXAMINE, or 
STOP statement, the length of the string is one character. 


Be The ALL literal figurative constant cannot be used with the DISPLAY, 
EXAMINE, or STOP statements. 


Special Registers 


Special registers are compiler-generated memory areas. They are used to 
store information that is produced when specific COBOL features are used. 


TALLY REGISTER 


The primary use of the TALLY register is to temporarily store the 
o™ information produced by the EXAMINE statement when the TALLYING option 
associated with it. is used. The TALLY register generated is just pee enough 
to Conearn AMS T 


LINE-COUNTER 


The purpose of the LINE- eee is to automatically control the vertical 
positioning of a report. ‘OVE RE LOW. OVERFLOW FOOTING report 
groups are automatically produced pised on the PAGE LIMIT clause specified in 
each report description entry. These report groups are used by the compiler to 
control the placement of headings and footings on the pages of the report(s) 
being generated. Although the LINE-COUNTER is generated by the compiler, its 
maximum value may be controlled using the PAGE LIMIT clause. 


PAGE~COUNTER 


The purpose of the PAGE-COUNTER is to supply page numbers for the pages 
within a report group. The initial value of the PAGE-COUNTER is one, but this 
value can be modified by the user immediately after an INITIATE statement has 
been executed. 
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Editing Symbols 


The editing rules are described in Section VI under the PICTURE clause. 
This paragraph lists those characters of the COBOL character set that are 
editing symbols when used in an editing context. The symbols and their meanings 
are: 


Symbol Meaning 
B Space 
0 Zero 
+ Plus 
- Minus 
CR Credit 
DB Debit 
Z Zero Suppress 
* Check Protect 
$ Currency Sign 
; Comma 


Period (Decimal Point) 


Punctuation S ols 


The punctuation symbols are used to delimit character-strings to make 
source coding more readable and, in certain instances, to conform to the 
requirements of the language. For example, the compiler normally expects to 
encounter a period followed by a space after a section-name. If the period or 
the space or both do not appear immediately after a section-name, an error 
condition results. For the most part, however, punctuation symbols are optional 
in the formats. When punctuation symbols are used, however, the following rules 
must be observed: 


Ls When used to delimit a character-string, the period, comma, or 
semicolon must be followed immediately by a space. 


2% Whenever a space is used as a punctuation symbol, as many as _ desired 
may be used. 


3. The left parenthesis may be immediately followed by a space and the 
right parenthesis may be immediately preceded by a space. 


The punctuation symbols and their meanings are: 


Symbol Meaning 
Comma 
Semicolon 
Period 


Left Parenthesis 
Right Parenthesis 
Space 

. Quotation Mark 


~— —~ 6 =e = 
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Relation Symbols 


mae Special symbols may be used in conditional statements in the Procedure 
Division to express a relationship (in value) between two data items. The 
symbols used for this purpose and their meanings are: 


Symbol Meaning 
= Greater Than 
“ Less Than 


Equal To 


Arithmetic Operation Symbols 


The following symbols may be used to perform arithmetic Operations in the 
Procedure Division: 


Symbol Meaning 
a Addition 
- Subtraction 
id Multiplication 
va Division 
xe Exponentiation 


Reserved Words 


Appendix A of this manual contains a list of words reserved for the 
exclusive use of COBOL. That is, each of these words is a COBOL symbol with a 
predefined meaning and must not appear as a user-defined word. Since the user 
can define data-names, condition=-names, procedure-names, mnemonic-names, 
literals, and PICTURE character-strings, none of the reserved words can be used 
for any of these representations. 


CONCEPT OF COMPUTER-INDEPENDENT DATA DESCRIPTION 


The Data Division is that area of the source program in which the user 
describes the data that the object program is to produce or process. To make 
data as computer independent as possible, the attributes (characteristics or 
properties) of the data are described in relation to a standard data format 
rather than in relation to an equipment-oriented format. The data contained in a 
file is described according to the physical aspects of the file and the 
conceptual (or logical) characteristics of the data in the file. 


Physical Aspects of a File 


The physical attributes of a file describe the data as it appears on the 
input or output device. Some of the physical attributes of a file are: 


ds The recording mode. 
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Za The grouping (or blocking) of logical records within the physical 
limitations of the device. 


3% The means by which the file is identified. 


These file attributes are described or defined in the Data Division of the 
source program. 


Conceptual Characteristics of a File 


The logical attributes of a file are an explicit definition of each logical 
entity in the file and are described or defined in the Data Division. In COBOL, 
a logical record is a group of related information that is uniquely identifiable 
and treated as a unit. A physical record, on the other hand, is a physical unit 
of information whose size and recording mode is convenient for a particular 
computer for the storage of data on an input or output device. The size of a 
physical record is hardware dependent and need bear no direct relationship to 
the size of the file of information on a device. For example, a single logical 
record may be contained in a single physical record; several logical records may 
be contained in a single physical record; or a single logical record may 
require several physical records to contain it. In COBOL, the input and output 
statements refer to one logical record. The idea of a logical record is not 
confined to data contained in files. Data in the Working-Storage Section can 
also be grouped into logical records. 


Record Concepts 


Each unique logical record is defined by a record description entry in the 
Data Division. Record description entries consist of data description entries 
that describe the attributes of a particular logical record. Each data 
description entry in a record description entry consists of a level-number which 
is followed by a data-name and by a series of independent clauses as required 
for the entry. 


Concept of Levels 


The structure of a logical record is based on levels so that subdivisions 
of the record can be named or identified for data reference, After a subdivision 
has been named, it can be further subdivided. The most basic subdivision of a 
record (that which is not further subdivided) is an elementary item. To refer to 
a set of elementary items, the items are combined into named groups. A _ group 
consists of a named sequence of one or more elementary items. Groups may also be 
combined into a sequence of two or more groups. An elementary item can, 
therefore, belong to more than one group. Note that if a logical record is not 
subdivided, it is an elementary item. 
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COBOL employs a system of level-numbers to show the hierarchical structure 
of logical records. Since a logical record is the most inclusive data item, 
level-numbers for records start at 01. Less inclusive data items (1.e., group 
items and elementary items) are assigned higher (but not necessarily successive) 
level=-numbers not exceeding 49 in value. A group includes all group and 
elementary items following it until a level-number less than or equal to the 
level-number of that group is encountered. The level-number of an item (either 
an elementary item or a group item) which immediately follows the last 
elementary item of a preceding group must be the same as one of the groups to 
which the preceding elementary item belongs. In other words, level-numbers may 
not be assigned after a group structure has already been established by specific 
level-numbers. 


The special level-numbers 66, 77, and 88 are exceptions to the rule that 
level-numbers cannot exceed 49 in value. These special level-numbers are not 
associated with describing the hierarchical structure of a logical record but, 
instead, are used to specify: 


he Elementary items or groups introduced by a RENAMES clause. 
ae Noncontiguous working-storage data items and constants. 
3's Condition-names. 


Entries that describe items through a RENAMES clause (to regroup data 
items) use the level-number 66. Entries specifying noncontiguous data items 
(which are not subdivided and are not subdivisions of other items) use _ the 
level-number 77. Entries specifying condition-names (to be associated with 
particular values of a conditional variable) use the level-number 88. 


Concept of Classes of Data 


The five categories of data items (refer to the PICTURE clause) are grouped 
into three classes; alphabetic, numeric, and alphanumeric. For alphabetic and 
numeric, the classes and categories are synonymous. The alphanumeric class 
includes the categories of alphanumeric edited, numeric edited, and alphanumeric 
(without editing). Every elementary item belongs to one of the three classes and 
also to one of the categories. At object program execution, the class of a group 
item is treated as alphanumeric regardless of the class of elementary items 
subordinate to that group item. The following chart displays the relationship of 
the class and categories of data items. 


LEVEL OF ITEM CLASS CATEGORY 
Alphabetic Alphabetic 

Alphanumeric 

Alphanumeric 
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Numeric Edited 
Alphanumeric Edited 
Alphanumeric 


Alphabetic 
Numeric 
Numeric Edited 
Alphanumeric Edited 
Alphanumeric 


Nonelementary 
(Group) 


The size of an elementary data item or a group item is the number of 
characters in standard data format of the item. Synchronization and usage may 
cause a difference between this size and the character positions required for 
the internal representation of the data. 


Algebraic Signs 


Algebraic signs are used to indicate whether the value of a data item is 
positive or negative; two kinds of signs are employed: 


: An operational sign is used to show the value of an item in an 
operation. 
Zs An editing sign is used to identify the value of an item on an 


external, edited report. 


The operational 
unless the data description entry specifies USAG TOR In this 
case, the operational sign must be a Pees four—bit digit immediately 
following the last digit of the numeric data item. If signs other than 
operational signs are used on input data, special handling will be required in 
the Procedure Division statements. Editing signs are not operational _ signs; 
they are inserted into a data item using the sign control symbols of the PICTURE 
clause. 


Standard Alignment Rules 


The standard rules for positioning data within an elementary item depend on 
the category of the receiving item. These rules are: 


i If the receiving data item is described as numeric: 


a. The data is aligned by decimal point and is moved to the 
receiving character positions with zero-fill or truncation on 
either end as required. 


ion When a decimal point is not explicitly specified, the data item 
is treated as if it had an assumed decimal point immediately 
following its rightmost character with zero-fill or truncation to 
the left, as required. 


an If the receiving data item is a numeric edited data item, the data 
moved to the edited data item is aligned by decimal point with 
zero-fill or truncation at either end as required within the receiving 
character positions of the data item, except where editing 
requirements cause replacement of the leading zeros. 


- If the receiving data item is alphanumeric (other than a numeric 
edited data item), alphanumeric edited, or alphabetic, the sending 
data is moved to the receiving character positions and aligned at’ the 
leftmost character position in the data item with space-fill or 
truncation to the right, as required. 


If the JUSTIFIED clause is specified for the receiving item, these standard 
rules are modified as described in the JUSTIFIED clause. 
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COBOL employs a system of level-numbers to show the hierarchical structure 
of logical records. Since a logical record is the most inclusive data item, 
level-numbers for records start at 01. Less inclusive data items (i.e., group 
items and elementary items) are assigned higher (but not necessarily successive) 
level-numbers not exceeding 49 in value. A group includes all group and 
elementary items following it until a level=-number less than or equal to the 
level-number of that group is encountered. The level-number of an item (either 
an elementary item or a group item) which immediately follows the last 
elementary item of a preceding group must be the same as one of the groups’ to 
which the preceding elementary item belongs. In other words, level-numbers may 
not be assigned after a group structure has already been established by specific 
level-numbers. 


The special level-numbers 66, 77, and 88 are exceptions to the rule that 
level-numbers cannot exceed 49 in value. These special level-numbers are not 
associated with describing the hierarchical structure of a logical record but, 
instead, are used to specify: 


Ls Elementary items or groups introduced by a RENAMES clause, 
var Noncontiguous working-storage data items and constants. 
a Condition-names. 


Entries that describe items through a RENAMES clause (to regroup data 
items) use the level-number 66. Entries specifying noncontiguous data items 
(which are not subdivided and are not subdivisions of other items) use the 
level-number 77. Entries specifying condition-names (to be associated with 
particular values of a conditional variable) use the level-number 88. 


Concept of Classes of Data 


The five categories of data items (refer to the PICTURE clause) are grouped 
into three classes; alphabetic, numeric, and alphanumeric. For alphabetic and 
numeric, the classes and categories are synonymous. The alphanumeric class 
includes the categories of alphanumeric edited, numeric edited, and alphanumeric 
(without editing). Every elementary item belongs to one of the three classes and 
also to one of the categories. At object program execution, the class of a group 
item is treated as alphanumeric regardless of the class of elementary items 
subordinate to that group item. The following chart displays the relationship of 
the class and categories of data items. 


LEVEL OF ITEM CLASS CATEGORY 
Alphabetic Alphabetic 


cane 
Alphanumeric 
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Numeric Edited 
Alphanumeric Edited 
Alphanumeric 


Alphabetic 
Numeric 
Numeric Edited 
Alphanumeric Edited 
Alphanumeric 


Nonelementary 
(Group) 


The size of an elementary data item or a group item is the number of 
characters in standard data format of the item. Synchronization and usage may 
cause a difference between this size and the character positions required for 
the internal representation of the data. 


Algebraic Signs 


Algebraic signs are used to indicate whether the value of a data item is 
positive or negative; two kinds of signs are employed: | 


Ly A standard operation sign is used to show the value of an item in an 
operation. 
as An editing sign is used to. identify the value of an item on an 


external, edited report. 


mec PaLiGuine the last digit of the numeric data item. If signs other 
than standard operation signs are used on input data, special handling will be 
required in the Procedure Division statements. Editing signs are not operation 
signs; they are inserted into a data item using the sign control symbols of the 
PICTURE clause. 


Standard Alignment Rules 


The standard rules for positioning data within an elementary item depend on 
the category of the receiving item. These rules are: 


a ee If the receiving data item is described as numeric: 


as The data is aligned by decimal point and is moved to the 
receiving character positions with zero-fill or truncation on 
either end as required. 


Ds When a decimal point is not explicitly specified, the data item 
is treated as if it had an assumed decimal point immediately 
following its rightmost character with zero-fill or truncation to 
the left, as required. 


ar If the receiving data item is a numeric edited data item, the data 
moved to the edited data item is aligned by decimal point with 
zero-fill or truncation at either end as reguired within the receiving 
character positions of the data item, except where editing 
requirements cause replacement of the leading zeros. 


3% If the receiving data item is alphanumeric (other than a numeric 
edited data item), alphanumeric edited, or alphabetic, the sending 
data is moved to the receiving character positions and aligned at the 
leftmost character position in the data item with space-fill or 
truncation to the right, as required. 


If the JUSTIFIED clause is specified for the receiving item, these standard 
rules are modified as described in the JUSTIFIED clause. 
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UNIQUENESS OF REFERENCE 


Qualification 


Every user-specified name that defines an element in a COBOL source program 
must be unique, either because no other name has the identical spelling and 
hyphenation, or because the name exists within a hierarchy of names such that 
references to the name can be made unique by mentioning one or more of the 
higher levels of the hierarchy. The higher levels are called qualifiers and the 
process that specifies uniqueness is called qualification. Enough qualification 
must be mentioned to make the name unique; however, it may not be necessary to 
mention all levels of the hierarchy. Within the Data Division, all data-names 
used for qualification must be associated with a level indicator or a 
level-number. Therefore, two identical data-names must not appear as entries 
subordinate to a group item unless they are capable of being made unique through 
qualification. In the Procedure Division, two identical paragraph-names must not 
appear in the same section. 


In the hierarchy of qualification, names associated with a level indicator 
are the most Significant; then those names associated with level-number 01; then 
names associated with level=-number 02, ..., 49. A section=-name is the highest 
(and the only) qualifier available for a paragraph-name. Thus, the most 
Significant name in the hierarchy must be unique and cannot be qualified. 
Subscripted or indexed data-names and conditional variables, as well as 
procedure-names and data-names, may be made unique by qualification. The name of 
a conditional variable can be used as a qualifier for any of its 
condition-names. Regardless of the available qualification, no name can be both 
a data-name and a procedure=name. 


Qualification is performed by following a data=-name or a paragraph-name by 
one or more phrases composed of a qualifier preceded by IN or OF. IN and OF are 
logically equivalent. 


The general formats for qualification are: 
Format 1: 
data-name-1l 
data-name=-2 |... 
condition=name 


Format 2: 


paragraph=-name = section-name 


The rules for qualification are as follows: 


Ls Each qualifier must be of a successively higher level and within the 
same hierarchy as the name it qualifies. 

2% The same name must not appear at two levels in a hierarchy. 

3 If a data-name or a condition-name is assigned to more than one data 


item in a source program, the data-name or condition-name must be 
qualified each time it is referred to in the Environment, Data, and 
Procedure Divisions (except REDEFINES where, by definition, 
qualification is unnecessary). 
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4. A paragraph-name must not be duplicated within a section. When a 
paragraph-name is qualified by a section-name, the word SECTION must 
not appear. A paragraph=-name need not be qualified when referred to 
from within the same section. 


Ss A data-name cannot be subscripted when it is being used as a 
qualifier. 


6. A name can be qualified even though it does not need qualification; if 
there is more than one combination of qualifiers that ensures 
unigueness, then any such set can be used. 


Subscripting 


Subscripts can be used only when reference is made to an individual element 
within a list or table of like elements that have not been assigned individual 
data-names. (Refer to the OCCURS clause in Section VI and Table Handling in 
Section If.) 


The subscript can be represented either by a numeric literal that is an 
integer or by a data-name. The data-name must be a numeric elementary item that 
represents an integer. When the subscript is represented by a data-name, the 
data-name may be qualified but not subscripted. 


The subscript may contain a plus sign. The lowest possible subscript value 
is one (1); this value points to the first element of the table. The next 
sequential elements of the table are pointed to by subscripts whose values are 
2, 3, eee » The highest permissible subscript value in any particular case is 
the maximum number of occurrences of the item as specified in the OCCURS clause. 


The subscript, or set of subscripts, that identifies the table element is 
enclosed in parentheses immediately following the terminal space of the table 
element data-name. The table element data-name appended with a subscript is 
called a subscripted data-name. Although not required, a comma may separate 
subscripts in a series. 


The format is: 


data-name (subscript E subscript | ees 


Some examples of writing subscripts are: 


MOVE RATE (REGION, STATE, CITY) TO LISTINGS. 

IF HEIGHT (10) IS GREATER THAN ... 

MULTIPLY PRICE (STOCK=-NO) BY INVENTORY (STOCK-=-NO). 
EXAMINE TRACT (REGION) REPLACING. . . 


Indexing 


References can be made to individual elements within a table of like 
elements by specifying indexing for that reference. An index is assigned to that 
level of the table by using the INDEXED BY phrase in the definition of a_ table. 
A name given in the INDEXED BY phrase is known as an index-name and is used _ to 
refer to the assigned index. An index-name must be initialized by a SET 
statement before it is used as a table reference (refer to the SET statement, 
Section VII). 
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Direct indexing of a table element is specified by using an index-name in 
the form of a subscript. Relative indexing is specified when the index-name is 
followed by the operator + or -, followed by an unsigned integral numeric 
literal all enclosed in the set of parentheses that begins immediately after the 


terminal space of the data-name. 


The general format for indexing is: 


3 + 
data=name ( index-name [{ } snceser 
+ 
, index=name | integer ewe 2 


Identifier 


An identifier is a term used to reflect that a data-name (if not unique in 
a program) must be followed by a _ syntactically correct combination of 
qualifiers, subscripts, or indexes necessary to ensure uniqueness. 


The general formats for identifiers are: 


Format l: 


OF 
< cata-nane-2| cee | C2UBbSErapt=1 


data-name-1 
IN 


f subscript-2 ie subscript-3] ) 


Format 2: 


OF 
data-name-l 5 data-name-2 | ale 
IN 
+ 
(index-name-1 integer 
+ 
, index-name-2 integer 
i + 
, index-name-3 integer ) 
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Restrictions on Qualification, Subscripting, and Indexing 


The restrictions on qualification, subscripting, and indexing follow: 
Ls The commas shown in the general formats are not required. 


nae A data=-name must not itself be subscripted nor indexed when that 
data-name is being used as an index, subscript, or qualifier. 


3 Indexing is not permitted where subscripting is not permitted. 


4, An index may be modified only by the SET, SEARCH, and PERFORM 
statements. Data items described by the USAGE IS INDEX clause permit 
storage of the values associated with index-names as data. Such data 
items are called index data items. 


Ds If indexing is to be used, each OCCURS clause within the hierarchy 
(each dimension of the table) must contain an INDEXED BY phrase, 


Gy When a reference requires more than one occurrence number for 
completeness, a data=name subscript must not be used to indicate one 
occurrence number when an index-name is used for another. 


Ves Literals and index-names may be mixed within one reference just as 
literals and data-name subscripts may be mixed. 


REFERENCE FORMAT 


The reference format, which provides a standard method for describing COBOL 
source programs, is expressed in terms of character positions in a line on the 
input-output device. The COBOL compiler accepts source programs written in 
reference format and produces an output listing in reference format. 


The rules for spacing given in the discussion of the reference format take 
precedence over all other rules for spacing. 


The divisions of a source program must be ordered as follows: the 
Identification Division, the Environment Division, the Data Division, and the 
Procedure Division. Each division must be written according to the rules for the 
reference format. 


Reference Format Representation 


The reference format for a line is represented as follows: 


Margin Margin Margin Margin Margin 
L Cc A B R 


Rhee ace Geo et. seed orbiter’ tae ta. fe AO See egs 
Sequence Number 
Area 


Area A Area B 


Continuation/Comment/ 
Line Indicator Area 
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Margin L designates the leftmost character position of a line, position l. 
Margin C designates the seventh character position relative to L. 

Margin A designates the eighth character position relative to L. 

Margin B designates the twelfth character position relative to L. 


Margin R designates the rightmost character position of a line and is 
character position 72 relative to Margin L. 


The sequence number area occupies the six character positions beginning at 
Margin L, positions 1 through 6. 


G line indicator area is the seventh character 


The continuation/comment/ 
position of the line. 


Area A occupies four character positions beginning at Margin A, positions 8 
through 12. 


Area B occupies sixty-one character positions beginning at Margin B, 
positions 12 through 72. 


SEQUENCE NUMBERS 


A sequence number, consisting of six digits in the sequence number area, 
may be used to label a source program line. 


CONTINUATION OF LINES 


Any sentence or entry that requires more than one line is continued by 
starting subsequent line(s) in Area B. These subsequent lines are called the 
continuation line(s). The line being continued is called the continued line. Any 
word or literal may be broken in such a way that part of it appears on a 
continuation line. 


A hyphen in the continuation area of a line indicates that the first 
nonblank character in Area B of the current line is the successor of the last 
nonblank character of the preceding line with no intervening space. However, if 
the continued line contains a nonnumeric literal without a closing quotation 
mark, the first nonblank character in Area B of the continuation line must be a 
quotation mark, and the continuation starts with the character immediately after 
that quotation mark. All spaces at the end of the continued line are considered 
part of the literal. Area A of a continuation line must be blank. 


If no hyphen is contained in the continuation area of a line, it is assumed 
that the last character in the preceding line is followed by a space. 


BLANK LINES 


A blank line is one that is blank from Margin C to Margin R, inclusive. A 
blank line can appear anywhere in the source program except: 


ae Immediately preceding a continuation line. 
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Division, Section, and Paragraph Formats 


DIVISION HEADER 


The division header must start in Area A. After the division header, no 
text may appear before the following section header or paragraph header or 
paragraph-name, except that the keyword DECLARATIVES followed by a period may be 
present after the Procedure Division header. 


SECTION HEADER 


The section header must start in Area A. 


A section consists of paragraphs in the Environment, Data, and Procedure 
Divisions. In the Environment and Data Divisions, no text may appear before the 
following paragraph header or paragraph-name. 


In the Procedure Division, a section header is composed of a section-name, 
followed by the reserved word SECTION, followed by a priority-number (optional), 
followed by a period and a space. 


PARAGRAPH HEADER, PARAGRAPH-NAME, AND PARAGRAPH 


one, or more 
sentences, or a paragraph header followed by one or more A paragraph 
header starts in Area A of any line following the first line of a division or a 
section. 


The name of a paragraph starts in Area A of any line following the first 
line of a division or a section and ends with a period followed by a space. 


The first sentence or entry in a paragraph begins either on the same line 
as the paragraph-name or in Area B of the next nonblank line that is not a 
comment line. Successive sentences or entries either begin in Area B of the same 
line as the preceding sentence or entry or in Area B of the next nonblank line 
that is not a comment line. 


A sentence consists of one or more statements; an entry consists of one or 
more clauses; all sentences and entries must be followed by a period followed by 
a space. 


When the sentences or entries of a paragraph require more than one line, 
they may be continued as described in the Continuation of Lines paragraph above. 
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Data Division Entries 


Each Data Division entry begins with a level indicator or a level-number, 
followed by a space, followed by the name of a data item (except in the Report 
Section), followed by a sequence of independent clauses describing the data 
item. Each clause, except the last clause of an entry, may be terminated by a 
semicolon followed by a space. The last clause is always terminated by a_ period 
followed by a space. There are two types of Data Division entries; those which 
begin with a level indicator and those which begin with a level-number. 


A level indicator is any of the following: file description (FD), 


sort=wierye: file description (SD), or report description (RD). See Section VI. 


In Data Division entries that begin with a level indicator, the level 
indicator begins in Area A followed in Area B by its associated data-name and 
appropriate descriptive information. 


Data Division entries that begin with level-numbers are called data 
description entries. 


In data description entries that begin with a level-number Ol or 77, the 
level-number begins in Area A followed by a space and its associated record-name 
or item name and appropriate descriptive information. 


A level-number may be one of the following set: 01 through 49, 66, 77, 88. 
Single digit level-numbers are written either as a digit or as a zero followed 
by a digit. At least one space must separate a level-number from the word 
following the level-number. 


Successive data description entries may have the same format as the first 
or may be indented according to level-number. The entries in the output listing 
are indented only if the input is indented. Indentation does not affect the 
magnitude of a level=number. 


When level-numbers are to be indented, each new level-number may begin any 
number of spaces to the right of Margin A. The extent of indentation to the 
right is determined only by the width of the physical medium. 


Declaratives 


The keyword DECLARATIVES and the keywords END DECLARATIVES that precede and 
follow, respectively, the declarative portion of the Procedure Division must 
appear on a line by themselves. Each must begin in Area A and be followed by a 
period and a space. After the keywords END DECLARATIVES, no text may appear 
before the following section header. 
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FORMAT CONVENTIONS USED IN THIS MANUAL 


Definition of a General Format 


A general format is the specific arrangement of the elements of a clause or 
a statement (which consist of elements as defined below). In this manual, a 
format is shown adjacent to information which defines a clause or statement. If 
more than one specific arrangement is permitted, the general format is separated 
into numbered formats. Clauses must be written in the sequence given in the 
general formats. (If used, optional clauses must appear in the sequence ' shown.) 
In certain cases, stated explicitly in the rules associated with a given format, 
clauses may appear in sequences other than those shown. Applications, 
requirements, or restrictions are presented as rules: 


@ A syntax rule amplifies or restricts the usage of the elements within 
a general format. 


® A general rule amplifies or restricts functions attributed to a 
general format or to its constituent elements. 


Elements which make up a clause or a statement consist of uppercase words, 
lowercase words, level-numbers, brackets, braces, connectives, and special 
characters. 


Words 


All underlined uppercase words are called keywords and are required when 
the functions of which they are a part are used. Uppercase words which are not 
underlined are optional and may be written in the source program at_ the 
discretion of the user. Uppercase words, whether underlined or not, must be 
spelled correctly and must appear in the source program exactly as shown in the 
formats. 


In a general format, lowercase words are generic terms used to represent 
COBOL words that must be supplied by the user. Lowercase words which occur in a 
general format are replaced by COBOL words in an actual program, except for the 
following list of words: 


# Statements (Section VII) 

® Imperative-statements (Section VII) 
@ Arithmetic-expressions (Section VII) 
& Character-strings (Section VI) 

® Comment<-entries (Section IV) 

& Conditions (Section VII) 

* Literals (Section III) 


The above exceptions represent combinations of COBOL words constructed in 
accordance with the definitions given in the sections noted. 
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When generic terms are repeated in a general format, a number or letter 
appended to the term serves to identify that term for subsequent explanation. 


Periods 


When a period is shown in a format, it must appear in the same position 
whenever the statement is used in the source program. A period must always’ be 
followed by at least one space (unless it is the last character of a line). 


Level=-Numbers 


When specific level-numbers appear in data description entry formats, those 
specific level-numbers are required when such entries are used in a COBOL 
program. 


Brackets .and Braces 


When a portion of a general format is enclosed in brackets[ Aj that 
portion may be included or omitted at the user's choice. Braces { }enclosing a 
portion of a general format indicate that one of the options contained within 
the braces must be selected. In both cases, the possible choices are stacked 
vertically in the format. When brackets or braces enclose a portion of a format 
but only one possibility is shown, the function of the brackets or braces is to 
delimit that portion of the format to which. a following ellipsis applies (see 
next paragraph). If an option within braces does not contain a key word, that 
option is a default option (implicitly selected unless explicitly overridden). 


The Ellipsis: (soa) 


The ellipsis may show the omission of a portion of a source program. The 
meaning becomes apparent in context. | 


In the general format, the ellipsis represents the position at which 
repetition may occur at the user's option. The portion of the format that may be 
repeated is determined as follows: 


In a clause or statement format in which the ellipsis (...) appears, scan 


from right to left to determine the ] or } delimiter immediately to the 
left of the ...; continue scanning from right to left and .determine the 
logically matching [ or delimiter; the ... applies to the words between 


the pair of delimiters. 
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Format Punctuation 


The punctuation characters comma and semicolon are shown in some formats. 
However, a semicolon must not appear immediately preceding the first clause of 
an entry or a paragraph. These punctuation characters are used in each major 
COBOL division as explained below. 


& Identification Division - Although not expressly shown in the formats 
in this division, the comma and semicolon may be used within the 
comment-entries. The paragraph itself must terminate with a period 
followed by a space. 


& Environment Division - When either a comma or a semicolon is shown in 
the formats, it is optional and may be included or omitted. The entry 
itself must terminate with a period followed by a space. 


& Data Division - When either a comma or a semicolon is shown in the 
formats, it is optional and may be included or omitted. The entry 
itself must terminate with a period followed by a space. 


& Procedure Division - When a comma is shown in the formats, the comma 
is optional and may be included or omitted. If desired, a semicolon 
may be used between statements. 


Special Characters 


When the characters '+', '=', '<', '>', and '=' appear in formats, they 
are required when such formats are used, even though they are not underlined. 


Shading 


In this manual, the shaded areas represent the implementation of a feature 
specified in the CODASYL COBOL Journal of Development but not specified in 
American National Standard COBOL-1968, the implementation of a feature defined 
in earlier versions of the COBOL language specifications but subsequently 
deleted by CODASYL, or the implementation of a feature that may be unique to the 
Series 60/6000 compiler. Some of these features are now contained in American 
National Standard COBOL-1974. 


For additional information regarding obsolete language elements, refer to 
Section XVII of the COBOL User's Guide. 


For information concerning the flagging of obsolete language elements and 
Series 60/6000 language extensions, refer to Appendix C of the COBOL User's 
Guide. 


Deltas 


A delta A in the margin adjacent to the text indicates that the particular 
feature being described has not been implemented. The A may appear adjacent to 
a feature not implemented or adjacent to a feature which is not available for 
use with the Software Release associated with this revision of the manual. 
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SECTION IV 


IDENTIFICATION DIVISION 


DESCRIPTION OF THE IDENTIFICATION DIVISION 


Each COBOL source program must begin with the Identification Division, 
which is used to identify the source program and its resultant output listing. 
The user may also include the date on which the program is written, the date of 
source program compilation, and other desired information as shown in the 
paragraph structure of the general format below. 


Organization of the Identification Division 


Fixed paragraph-names specify the type of information contained in each 
paragraph. The name of the program may be given in the first paragraph, the 
PROGRAM-ID paragraph. The other paragraphs are optional and may be included at 
the discretion of the user, in any order. 


Structure of the Identification Division 


The structure of the Identification Division is presented below. 
General Format: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 
[ AUTHOR. [comment-entry |] sie 
[ INSTALLATION. [comment-entry ] ...] 
[ DATE-WRITTEN. [comment-entry ]...] 
[ DATE-COMPILED. [comment-entry ]...] 
[ SECURITY. [comment-entry ]...] 


[ REMARKS. [comment-entry dees 
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Syntax Rule: 


Lis The Identification Division must begin with the reserved words 
IDENTIFICATION DIVISION followed by a period and a space. 


General Rule: 


as A comment-entry may be any combination of characters from the 
computer's character set, organized to conform to sentence and 
paragraph format. 
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PROGRAM=-ID PROGRAM=-ID 


PROGRAM-ID PARAGRAPH 


The PROGRAM-ID paragraph is required and may be the first paragraph in the 
Identification Division. 


General Format: 


PROGRAM-ID. program-name. 


Syntax Rules: 


5 The PROGRAM-ID paragraph must begin with the paragraph-name PROGRAM-ID 
which must be followed by a period and a space. It must appear in 
every program. 


3s The program-name must be followed by a period and a space. 


General Rules: 


Le The first three characters are used as the Transaction Processing 
Applications Program (TPAP) identifier (ID) when the program is to he 
used in the Transaction Processing System; therefore, they must be 
unique within that system (refer to the COBOL User's Guide). 


2% When the program is to be loaded into the same overlay as other COBOL 
programs, the first four characters of each program-name must _ be 
unique within the overlay. 


B% The program-name will appear on the program listing. 
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AUTHOR AUTHOR 


AUTHOR PARAGRAPH 


The AUTHOR paragraph is used to supply the name of or otherwise identify 
the author of the program. 


General Format: 


AUTHOR. [comment-entry ]... 


Syntax Rules: 
die The AUTHOR paragraph must begin with the paragraph-name AUTHOR which 
must be followed by a period and a space. 
he The comment-entry can be one or more sentences, including any 


combination of characters from the computer's character set, organized 
to conform to sentence and paragraph format. 


General Rules: 
Ls The paragraph is optional. 


2s If the AUTHOR paragraph is included in the source program, the 
information supplied will appear on the program listing. 
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INSTALLATION INSTALLATION 


INSTALLATION PARAGRAPH 


The INSTALLATION paragraph is used to supply the name of or otherwise 
identify the installation at which the source program was written. 


General Format: 


INSTALLATION. [comment-entry]... 


Syntax Rules: 


a The INSTALLATION paragraph must begin with the paragraph-name 
INSTALLATION which must be followed by a period and a space. 
2% The comment-entry can be one or more sentences, including any 


combination of characters from the computer's character set, organized 
to conform to sentence and paragraph format. 


General Rules: 
Ls The paragraph is optional. 


as If the INSTALLATION paragraph is included in the source program, the 
information supplied will appear on the program listing. 
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DATE-WRITTEN DATE-WRITTEN 


DATE-WRITTEN PARAGRAPH 


The DATE-WRITTEN paragraph is used to supply the date on which the program 
was written. 


General Format: 


DATE-WRITTEN. [comment-entry ]} eee 


Syntax Rules: 
a The DATE-WRITTEN paragraph must begin with the paragraph-name 
DATE-WRITTEN which must be followed by a period and a space. 
2s The comment-entry can be one or more sentences, including any 


combination of characters from the computer's character set, organized 
to conform to sentence and paragraph format. 


General Rules: 
i The paragraph is optional. 


£% If the DATE-WRITTEN paragraph is included in the source program, the 
information supplied will appear on the program listing. 


4-6 DD25 


C ) 


DATE-COMPTILED 


DATE-COMPILED PARAGRAPH 


The DATE-COMPILED paragraph is used to 


was compiled. 


General Format: 


DATE-COMPILED. [comment-entry]... 


Syntax Rules: 


1. 


General 


DATE-COMP ILED 


supply the date on which the program 


The DATE-COMPILED paragraph must begin with the paragraph-name 


DATE-COMPILED which must be followed by a period and a space. 


The comment-entry may be any combination of characters from 
computer's character set, organized to conform to sentence 
paragraph format. 


Rules: 


The paragraph is optional. 


If the DATE-COMPILED paragraph is included in the source program, 
is replaced during compilation with a paragraph of the form: 


DATE-COMPILED. current<-date. 


the 
and 


Ee 
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SECURITY SECURITY 


SECURITY PARAGRAPH 


The SECURITY paragraph is used to supply the level of security attached to 
the program by the installation or user. 


General Format: 


SECURITY. [comment-entry]... 


Syntax Rules: 
is The SECURITY paragraph must begin with the paragraph-name SECURITY 
which must be followed by a period and a space. 
a The comment-entry may be any combination of characters from the 


computer's character set, organized to conform to sentence and 
paragraph format. 


General Rules: 
is The paragraph is optional. 


5 If the SECURITY paragraph is included in the source program, the 
information supplied will appear on the program listing. 
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REMARKS REMARKS 


REMARKS PARAGRAPH 


| The REMARKS paragraph is used to supply any information about the program 
that is not contained in the other paragraph headings in the Identification 
Division. 


General Format: 


REMARKS. [ comment-entry ] e+e 


Syntax Rules: 
oe The REMARKS paragraph must begin with the paragraph-name REMARKS which 
must be followed by a period and a space. 
a6 The information supplied can be one or more sentences, including any 
combination of characters from the computer's character set, organized 


to conform to sentence and paragraph format. 


Ze All lines of comment-entry are restricted to Area B of the reference 
format. 


General Rules: 
a The paragraph is optional. 


2« If the REMARKS paragraph is included in the source program, the 
information supplied will appear on the program listing. 
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SECTION V 


ENVIRONMENT DIVISION 


DESCRIPTION OF THE ENVIRONMENT DIVISION 


The Environment Division must be included in every COBOL source program and 
is the second division of a COBOL program. This division provides a_ standard 
method of expressing the aspects of a data processing problem that depend upon 
the physical characteristics of any given computer. It is used to identify the 
compiling computer and the computer on which the object program is to be run. 
Data concerning input-output control, specific hardware characteristics, and 
control techniques can also be presented in this division. 


Organization of the Environment Division 


The Environment Division is divided into two sections, the Configuration 
Section and the Input-Output Section. The Configuration Section is required and 
the Input-Output Section is optional. The Configuration Section is subdivided 
into the following three paragraphs: 


@ SOURCE-COMPUTER paragraph, which identifies the computer on which the 
source program is to be compiled. 


e OBJECT-COMPUTER paragraph, which identifies the computer on which the 
object program produced by the compiler is to be executed. 


® SPECIAL-NAMES paragraph, which associates the names of hardware and 


operating system features used by the compiler with the mnemonic-names 
used in the source program. 


The Input-Output Section is subdivided into the following two paragraphs: 
@ FILE-CONTROL paragraph, which names all files used in the program and 


associates them with external media. 


8 I-O-CONTROL paragraph, which defines special control techniques to be 
used in the object program. 
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Structure of the Environment Division 


The general outline of the sections and paragraphs in the Environment 
Division and the order of presentation in the source program is given below. 


General Format: 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


SOURCE-COMPUTER -COMPUTER. [ scurce-computer-entry]| 


SPECIAL-NAMES. special-names-entry | 


| opsEcr-comurEn -COMPUTER. [ object-computer-entry ]| 
| rxpur-ourpur OUTPUT SECTION. 


FILE-CONTROL. file-control-entry } 


| 1-O-CONTROL. input-output-control-entry]| 


Syntax Rules: 


Ls The Environment Division must be included, must follow the 
Identification Division, and must begin with the reserved words 
ENVIRONMENT DIVISION which must be followed by a period and a space. 


a The Configuration Section should be included, follow the Environment 
Division header, and begin with the section-name CONFIGURATION SECTION 
which must be followed by a period and a space. 


CONFIGURATION SECTION IN THE ENVIRONMENT DIVISION 


The Configuration Section provides program documentation for the hardware 
characteristics of the computer used for compilation and of the computer used to 
execute the object program. Provisions are included in this section for 
assigning definitions to all mnemonic-names to be used in the body of the 
program, for defining condition=-names for the status of switches, and for 
defining specific compiler-directing phrases. 


5-2 DD25 


. SOURCE-COMPUTER SOURCE-COMPUTER 


6 


SOURCE-COMPUTER Paragraph 


The SOURCE-COMPUTER paragraph identifies the computer upon which the 
program is to be compiled. The paragraph can be written in either of the 
following two formats. 


Format 1: 


SOURCE-COMPUTER. COPY library-name 


word-2 
REPLACING word-1 BY { literal-l } 
identifier-l 


word=-4 
, word=-3 BY { literal-2 oe " 
identifier-2 


Format 2: 


Cy 6000 


SOURCE-COMPUTER. 6000-EIS 
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SOURCE-COMPUTER SOURCE-COMPUTER 


Syntax Rules: 
his The SOURCE-COMPUTER paragraph must begin with the paragraph-name 
SOURCE-COMPUTER which must be followed by a period and a space. 
oe When Format 1 is used, the COPY Library-name phrase is required. The 
library-name must be identical to the name associated with the desired 


text on the library. 


ans In Format 1, a word is any COBOL word. 


4, When Format 2 is used, the computer-name specified should be 6000 or 
6000-EIS. Series 60 users should specify 6000-EIS. 


General Rules: 


nee For a description of the COPY function, see Section VIII, the COBOL 
Library. 


7 ae This paragraph provides program documentation only and has no effect 
On compilation. 


Special Considerations: 


be For a program that might be used in an installation with different 
computers, the SOURCE=COMPUTER paragraph can supply valuable 
information for modifying the program for the different environment. 
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OBJECT-COMPUTER Paragraph 


The OBJECT-COMPUTER paragraph identifies the computer on which the program 
is to be executed. The paragraph can be written in either of the following two 
formats. 


Format 1: 


OBJECT-COMPUTER. COPY library-name 


word-2 
REPLACING word-l BY literal-1 
identifier-1l 


word-4 
v word-3 BY literal-2 eee e 
identifier-2 
Format 2: 
6000 | 
( OBJECT-COMPUTER. 6000-EIS 


WORDS 
integer-1 CHARACTERS 
MODULES 


, MEMORY SIZE 


[ SEGMENT-LIMIT IS priority-number | : 
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Syntax Rules: 
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a 


Ae 


wh ry size is given as 


The OBJECT-COMPUTER paragraph must begin with the paragraph-name 
OBJECT-COMPUTER which must be followed by a period and a space. 


When Format 1 is used, the COPY library-name phrase is required. The 
library-name must be identical to the name associated with the desired 
text on the library. 


In Format l, a word is any COBOL word. 


When Format 2 is used, the computer-name specified should be 6000 or 
6000-EIS. Series 60 users should specify 6000-EIS. 


The MEMORY SIZE phrase is optional. When used, the word MEMORY is 


required. If the memory size is given as an integer, the integer 
specifies the number of WORDS, CHARACTERS, or MODULES the object 
program requires. Therefore, one of these three words is required 


an 


integer. 
DHPRES< 


s 


aves 


When the SEGMENT-LIMIT IS phrase is used, the priority-number must be 
an integer in the range 1-49. The words SEGMENT-LIMIT IS are 
required. 


When the SEGMENT-LIMIT phrase is specified, only those segments having 
priority-numbers from 0 up to, but not including, the priority-number 
designated as the SEGMENT-LIMIT, are considered as permanent segments 
of the object program. 


Those segments having priority-numbers from the SEGMENT-LIMIT through 
49 are considered as fixed overlayable segments. 


When the SEGMENT-LIMIT phrase is omitted, all segments having 


priority-numbers from 0 through 49 are considered as permanent 
segments of the object program. 
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General Rules: 


i For a description of the COPY function, see Section VIII, the COBOL 
Library. 


Zs If the EISF or NEISF options are specified on the $ COBOL card, these 
options will take precedence over the OBJECT-COMPUTER paragraph. A 
warning message will be given when EISF has been specified on the 
S$ COBOL card and the following is encountered in the source program: 


OBJECT-COMPUTER. 6000. 
The object program will utilize EIS code. 


A warning message will be given when NEISF has been specified on the 
S$ COBOL card and the following is encountered in the source program: 


OBJECT—-COMPUTER. 6000-EIS. 
The object program will not utilize EIS code. 


If the OBJECT-COMPUTER paragraph is not present or a syntax error on 
computer-name (none present or illegal name) is detected, the compiler 
will determine whether or not EISF or NEISF was specified on the 
S$ COBOL card before the default determination of processor type is 
made. If neither EISF nor NEISF were specified on the $ COBOL card, 


the object program will be prepared for the type of processor upon 
f \ which the program is being compiled and a warning message will be 
issued. 


Special Considerations: 


Ls The 6000-EIS phrase causes coding that utilizes the Extended 
Instruction Set (EIS)! to be produced unless overridden by the NEISF 
option on the $ COBOL card. An object program that includes EIS can 
only be executed on an EIS processor. 


ha Programs in the same run unit should either all be compiled in the EIS 
mode or all be compiled in the NEIS mode; otherwise, unpredictable 
results (including abnormal terminations) may occur during object 
program execution. 


a For a program that might be used in an installation with different 
computers, the OBJECT-COMPUTER paragraph can supply valuable 
information for modifying the program for the different environment. 


lextended Instruction Set (EIS) refers to an extension to the original Series 

6000 instruction set. EIS is the standard instruction repertoire for models 

\ 6025, 6040, 6060, and 6080 of the Series 6000 system and all models of the 
Series 60 system. 
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SPECIAL-NAMES Paragraph 


The SPECIAL-NAMES paragraph is optional. It provides 
mnemonic-names used in the Data and Procedure Divisions, condition-names for the 
certain compiler-directing phrases can be specified. 
The paragraph can be written in either of the following two formats. 


status of switches, and 


Format 1: 


SPECIAL-NAMES. COPY 


library-name 


word=2 
REPLACING word-l1 BY literal-1l 


Format 2: 


SPECIAL-—NAMES. 


identifier-1l 


word—4 
literal-2 eee e 
identifier-3 


[1iteral-3 Is mnemonic-name~1 | 


[literal-4 IS mnemonic-name~2 | aigik 


[ GIN Is mnemonic-name~3 | 


[ sysour is mnemonic-name-4]| 


[ COMMUNICATION-DEVICE IS mnemonic-name-5] 


[ REMOTE Is mnemonic-name-6 | 


[ Laps Is mnemonic-name-7 | 
[ GTIME IS mnemonic-name~8 : 


[ CONSOLE Is mnemonic-name~9 | 


[ TYPEWRITER is mnemonic-name~-10 | 


[ TOP Is mnemonic-name~11 | 


SWITCH integer-1 


IS mnemonic-name-12 


a 


SPECIAL-NAMES 


method by which 


(" ON STATUS IS condition-name-1 [OFF STATUS IS condition-name-2 | 


, OFF STATUS IS condition-name~-2 [on status Is condition-name-1] 
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: SPECIAL-NAMES SPECIAL-NAMES 


[ DECIMAL-POINT IS COMMA | 


[ CURRENCY SIGN IS literal-5 | 


( } Syntax Rules: 


dks The SPECIAL-NAMES paragraph must begin with the paragraph-name 
SPECIAL-NAMES which must be followed by a period and a space. 


2 When Format 1 is used, the COPY library-name phrase is required. The 
'library-name' must be identical to the name associated with the 
desired text on the library. 


36 In Format 1, a word is any COBOL word. 

4. When used as a report code, literal-3 ofr literal-4 must be a 
single-character nonnumeric literal whose value is a letter ora 
ees we nae : 

Ds Mnemonic-names and condition-names may contain up to 30 characters, 


one of which must be a letter. 


oe If mnemonic-names, condition-names, or compiler-directing phrases are 
used, the SPECIAL-NAMES paragraph must be included in the program. 


General Rules: 


an x Oe Por a description of the. COPY function, see Section VIII, the COBOL 
Library. 
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The literal IS mnemonic-name option is used to define report codes. 
This option is required when more than one report is to be generated 
by the program. The literal specified is the code appended to the 
report-name defined in the report description entry for the report. 
(Refer to the CODE clause.) 


The "special names' peculiar to the operating system (GIN, SYSOUT, 
COMMUNICATION-DEVICE, REMOTE, GLAPS, GTIME, CONSOLE, and TYPEWRITER) 
may be assigned mnemonic-names for use with the ACCEPT and DISPLAY 
statements. The mnemonic-names assigned these 'special names' may be 
referenced by the ACCEPT and DISPLAY statements as follows: 


ACCEPT DISPLAY 

Statement Statement 

GIN SYSOUT 
COMMUNICATION-DEVICE COMMUN ICATION-—DEVICE 
REMOTE REMOTE 

GLAPS CONSOLE 

GTIME TYPEWRITER 

CONSOLE 

TYPEWRITER 


Although CONSOLE and TYPEWRITER are the same physical device, the 
effect of the ACCEPT and DISPLAY statements using these names is 
different. Refer to Section VI in the COBOL User's Guide. 


The mnemonic-name assigned to the special name 'TOP' may be referenced 
in a WRITE...ADVANCING statement to cause a listing to be advanced to 
the top of the next page. 


The SWITCH option is used to associate user-specified mnemonic-—names 
with the operating system's Program Switch Word switch numbers. When 
this option is used, at least one of the two possible states of the 
switch (ON ras 2 OFF) must be asSigned a condition-name,. The 
mnemonic=names associated with the software switches can be referenced 
only by using the ACCEPT and DISPLAY statements. The condition-names 
associated with the status of switches can be referenced only in 
sentences that contain either the IF or PERFORM statement. When’ the 
SWITCH option is used, the words SWITCH and IS are required as are 
either of the status names ON or OFF followed by IS. 


a0 DD25A 


SPECIAL~NAMES SPECIAL-NAMES 
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SPECIAL-~NAMES SPECTAL-NAMES 


LG The DECIMAL-POINT IS COMMA option is a compiler-directing phrase that 
causes the function of the comma Bn. the decimal point (period) to De 


ee The CURRENCY SIGN IS literal option is a compiler-directing phrase e 
that substitutes the specified literal for the dollar sign in PICTURE 
character-strings bie: progra diti: The literal 
specified must be ae single character and must not be one of the 
following: 


ae Digits 0 through 9; 


Di. Alphabetic characters A, B, C, D, =: 
the space; 


Cc. Special characters CR ee gp SO IE pe ee Ee OL gs Eg: AEN 
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SPECIAL-NAMES 


SPECIAL-NAMES 
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SPECIAL-NAMES SPECIAL-NAMES 
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| foe the 


rs on each _ 
compiler © 


scribed key _ 


INPUT-OUTPUT SECTION IN THE ENVIRONMENT DIVISION 


The Input-Output Section in the Environment Division is optional. This 
section is subdivided into two paragraphs; the FILE-CONTROL paragraph and_ the 
I-O-CONTROL paragraph. If the Input-Output Section is included in a source 
program, the FILE-CONTROL paragraph header is required and the I-O-CONTROL 
paragraph is optional. 
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FILE-CONTROL Paragraph 


The FILE-CONTROL paragraph names each file used in the program and 
identifies the type of peripheral device on which each file is stored. In 
addition, each file may be assigned to a particular input or output peripheral 
device. The paragraph can be written in any of the following three formats. 


Format l: 


FILE-CONTROL. COPY library-name 


word-2 
REPLACING word-l BY literal-1l 
oy identifier-l 


word-4 . 
, word=-3 BY literal=-2 aw Ps 
identifier-2 


Format 2: 
FILE-CONTROL. 


{ sexes [ OPTIONAL ] : © £ile-name-1 


ASSIGN TO [integer-1 ] file-code-1 Ez File-code-2 ] cae 


FOR 
MULTIPLE REEL 
i UNIT 
integer=2 AREA 
| nasBave ALTERNATE |] 
ee NO AREAS 
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FILE-CONTROL FILE-CONTROL 


FILE-LIMIT “LIMIT IS data-name-1l THRU data-name-2 
’ 
FILE-LIMITS -LIMITS ARE literal-1 THROUGH literal-2 
data-name-3 ‘THRU data-name-4 
tf eee 
literal-3 THROUGH literal-4 


SEQUENTIAL 


Ww 


, ACCESS MODE IS 
' RANDOM 


P, PROCESSING MODE IS SEQUENTIAL | 


E ACTUAL KEY IS data-name-5 | pee 


Format 3: 
FILE-CONTROL. 
{senses file=-name-1l 


ASSIGN TO [ integer-1 | file-code-1l [ ; file-code-2 | eee 7 coe 


~- 


Syntax Rules: 


cm The FILE-CONTROL paragraph is required when the INPUT-OUTPUT SECTION 
header is present. 


ie The FILE-CONTROL paragraph must begin with the paragraph-name 
FILE-CONTROL which must be followed by a period and a space. 


ae When Format 1 is used, the COPY library-name phrase is required. The 
'library-name' must be identical with the name of the desired text on 
the library. 


4, In Format 1, a word is any COBOL word. 

Ds The OPTIONAL phrase is allowed only for input files accessed in a 
sequential manner. It is required for sequential input files that are 
not necessarily present each time the object program is executed. 

6. Each file described in the Data Division must be named once and only 
once as a file-name in the FILE-CONTROL paragraph following the 
keyword SELECT. 


ar In Format 2, each selected file must have a file description entry in 
the Data Division. ; 
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LG 


LT 


LB 


In Format 3, each selected file must have a 
description entry in the Data Division. Sort files 6 Liles, 
those whose data descriptions begin with SD entries in the Data 
Division, must be named and assigned using Format 3. 


Integer-l and integer-2 must be unsigned nonzero integers. 


Integer-l is treated as documentation only since multiple devices are 
assigned using system control cards. 


Integer-l may not be specified when file-code-2, file-code-3, ..., is 
also specified in the ASSIGN phrase. 


Multiple file-codes in the ASSIGN phrase are treated as documentation 
only. 


File-code-l, ..., must be a two-character word consisting either of 
two letters (A through R, T through Z) or of one letter and one digit 
(0 through 9). File-codes beginning with the letter S should not be 
used in programs that utilize the oxy merge process. These 
file-codes, which include Sl, $2). .«..,; SA; SBy «ss, SZ, have a special 
meaning in the sort 6 3 operation. The code specified must not 
be a COBOL reserved word. The file-codes for each file named in a 
SELECT sentence must be unique within the program. When the object 
program is submitted for execution, it is accompanied by peripheral 
assignment cards which are used to specify the peripheral device for 
each file. The file-code in the peripheral assignment card must be 
the same as that assigned in the source program. Each of the object 
program's files is associated with the designated peripheral device 
when the operating system matches the file-codes. 


The MULTIPLE REEL option must be specified whenever the number of 
magnetic tape devices might be less than the number of reels in the 
file. 


The MULTIPLE UNIT option is treated as documentation only. 


The RESERVE phrase allows the user to modify the number of 
input-output areas allocated by the compiler. The RESERVE integer 
ALTERNATE AREAS phrase indicates that the specified number of buffer 
areas are to be allocated in addition to the main buffer area reserved 
by the COBOL compiler. The value of integer-2 must be less than 256. 
If the RESERVE NO ALTERNATE AREAS phrase is specified, one buffer area 
is allocated. If the RESERVE phrase is omitted, the compiler 
automatically allocates one alternate buffer area in addition to the 
main buffer area for input-output. 


The FILE-LIMIT(S) phrase is treated as documentation only. The 
FILE-LIMITS are determined by the amount of file space actually 
allocated to a particular file. 


The ACCESS MODE and PROCESSING MODE phrases must be given for mass 
storage files. 
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FILE-CONTROL FILE-CONTROL 


General Rules: 


cam For a description of the COPY function, see Section VITI, the COBOL 


Library. 
A 
ee sentence for "each progean Trnsth. ‘this file 
mr fept for that program that initially ee 
in ey file' does not. generate a tne 
36 
; entry--in the Data Division, 
RENAMING phrase is a ee ais _used, the. 
the 
‘The data 
its file 
ion eé Because 
tn: ‘ihe file -name “gpecitiea as file-name-1 must nok be described 
ain the File Section of the Data Division. The file description for the 
renamed file Must not be the last file description in the File 
Section, Lso, the SELECT sentence for the file-name specified as 
file-nam must not contain a RENAMING eee The renamed file must 
not e acrt 
4, Each file named in a SELECT sentence must be assigned to a peripheral 
device ein the ASSIGN TO iui 
200 Norma is” allocated in the Labeled Common storage area for 


fer areas. However, if the FOR BLANK COMMON phrase is 
eC buffer space for the file is allocated within Blank 
Comme je ather than. in Labeled Common storage. This feature is 


use: ic a wares ee (pecgr ane ee a Aimited | amount — of 
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FILE-CONTROL FILE-CONTROL 


The ACCESS MODE IS phrase should not be used for non-mass~-storage 
files but is required for mass Storage files. When ACCESS MODE IS 
SEQUENTIAL is specified, the mass storage logical records are read or 
written sequentially. The user need not Specify the actual key 
(through the ACTUAL KEY IS phrase) when the access mode of a mass 
storage file is sequential. When ACCESS MODE IS RANDOM is specified, 
the actual key must be specified in the ACTUAL KEY IS phrase. When the 
access mode is random, the mass storage logical records are read and 
written randomly using the data-name contents of the actual key to 
locate or place the records. 


The PROCESSING MODE IS phrase has _ no meaning for non-mass-storage 
Files but is required for mass storage files. When PROCESSING MODE IS 
SEQUENTIAL is specified, the mass storage logical records are 
processed in the order in which they are accessed. Thus, 2f£ Logical 
records are accessed randomly, the records are processed in the order 
of access. 


given 
usage 


entry 
in the Working-Storage Section. When the access mode is random, the 
user can obtain records sequentially by incrementing by one the value 
of the data-name associated with ACTUAL KEY. 
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I-O-CONTROL Paragraph 


The I-O-CONTROL paragraph defines special control techniques to be used in 
the object program. Input-output techniques, the points at which rerun is to be 
established, the memory area that is to be shared by different files, and the 
location of files on a multiple file reel can be specified in the I-O-CONTROL 
paragraph. The paragraph can be written in either of the following two formats. 


Format 1: 
I-O-CONTROL. COPY library-name 


word=2 
REPLACING word-l BY literal-1l 
identifier-l 


word=4 
, word-3 BY literal=-2 oe ee 
identifier=-2 


Format 2: 


E=QO=CONTROL:. 
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I-O-CONTROL IL-O-CONTROL 


a} | AREA FOR file-name-9, file-name-10 


[, file-name-11, file-name-12] ... |... 


| woxerens FILE TAPE CONTAINS file-name-13 [| POSITION integer-2 | 


[ , file-name-14 [| POSITION integer-3 ] ...]| ie 


Syntax Rules: 


of tcl 


: 


The I-O-CONTROL paragraph is optional. If present, it must begin with 
the paragraph-name I-O-CONTROL which must be followed by a period and 
a space. 


When Format 1 is used, the COPY library-name phrase is required. The 
"library-name' must be identical to the name associated with the 
desired text on the library. 


in format 1, a word is any COBOL word, 


eMmust not appear 


in ee SAME sentence unless the SORT, 
used. 


SORT AREA, 
following: 


More than one SAME sentence may be included in a program. However: 
Aas A file-name must not appear in more than one SAME AREA phrase. 


Be A file-name must not appear in more than one SAME RECORD AREA 
phrase. 


es A file-name that represents a sort file 6 


appear in more than one SAME SORT AREA 
phrase. 


not 
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If one or more file-names of a SAME AREA phrase appear ina SAME 
RECORD AREA phrase, all of the file-names in that SAME AREA 
phrase must appear in that SAME RECORD AREA phrase. However, 
additional file-names not appearing in that SAME AREA phrase may 
also appear in that SAME RECORD AREA phrase. The rule that only 
one of the files mentioned in a SAME AREA phrase can be open at 
any given time takes precedence over the rule that all files 
mentioned in a SAME RECORD AREA phrase can be open at any given 
time. 


in that SAME 


oo Each file specified in the MULTIPLE FILE phrase must be named in a 
SELECT sentence, 


General Rules: 


So For a description of the COPY function, see Section VIII, the COBOL 
Library. 


eb a | 
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I-O-CONTROL I-O-CONTROL 


a 


pe 


The SAME AREA Sac todo esa that two or more files that are not 
sort files or mer use the same memory area during 
processing. The area "to "Se shared includes all storage areas (and 
alternate areas) assigned to the files specified. It is not valid, 
therefore, to have more than one of the files open at the same time. A 
file-name must not be used in more than one SAME AREA phrase. 


The SAME RECORD AREA phrase specifies that two or more files are _ to 
use the same memory area for processing the current logical record. If 
the files named in the SAME RECORD AREA phrase are not also named in a 
SAME AREA phrase, then all the files named in the SAME RECORD AREA 
phrase can be open at the same time. A logical record that is 
processed in the 'Same Record Area' is considered to be a logical 
record of each opened output file that is named in this SAME RECORD 
AREA phrase. In addition, a logical record that is processed in the 
"Same Record Area' is considered to be a logical record of the most 
recently read input file that is named in this SAME RECORD AREA 
phrase. A file may be specified in only one SAME RECORD AREA phrase. 


1s 
OE 
may 


The SAME SORT AREA or SAME a ey 
area which will be ee each 
sort file 4 EE 8 4. Phy memory area ei iocered’ ‘for the 
sorting : ier 
sorting 
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atput “device can receive the 


* 


Cy 


I-O-CONTROL I-O-CONTROL 


it. 


nal ips agree ee There can be any number of multiple file input or 
output tapes (each having a corresponding MULTIPLE FILE phrase); 
however, all files listed for each tape must be contained on a Single 
reel. Onl 


time. 


In a memory areas assigned to files that do not hc Agni s sort 


Files other than sort files 


erage: £22 

memory area with each other. If a user wishes PaeSe files to share 
the same memory area with each other, a SAME AREA or SAME RECORD AREA 
phrase naming these files must also be included in the program. 


The MULTIPLE FILE phrase is required when two or more files share the 
Same reel of tape. Only those files on a multiple file tape that are 
referenced elsewhere in the source program need be named in a MULTIPLE 
FILE phrase. If all file-names on the tape are listed consecutively, 
the POSITION option may be omitted. If any file in the sequence of 
files on the tape is not included in the MULTIPLE FILE phrase, then 
the position relative to the beginning of the tape of each file named 
in the phrase must be given. 


file of a 


Special Considerations: 


Te 


At program execution, the unique file-codes associated with the files 
listed in a given MULTIPLE FILE phrase must be equated to the same 
logical unit designator using the appropriate $ TAPE file control 
cards. 
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SECTION VI 


DATA DIVISION 


DESCRIPTION OF THE DATA DIVISION 


The third division of a COBOL source program is the Data Division and it is 
required. It is used to describe data that the object program is (1) to accept 
as input, (2) to manipulate, (3) to create, or (4) to produce as output. Data to 
be processed can be that which is contained in files and enters or leaves’ the 
internal memory of the computer from a specified area or areas, data which is 
developed internally and placed into intermediate storage or working-storage or 
placed into specific format for output reporting purposes, or constants which 
are defined by the user. 


Organization of the Data Division 


The Data Division is subdivided into three sections; the File Section, the 
Working-Storage Section, and the Report Section. 


The File Section is used to define the contents of data files stored on 
external media. Each file is defined by a file description entry followed by a 
record description or a series of record descriptions. 


The Working-Storage Section is used to describe records and noncontiguous 
data items which are not part of external data files but are developed and 
processed internally. It also describes data items whose values are assigned in 
the source program and do not change during the execution of the object program. 


The Report Section is used to describe the content and format of reports 
that are to be generated. 


Structure of the Data Division 


The Data Division is prepared in accordance with the reference format 
described in Section III. The Data Division is identified by and must begin with 
the division header DATA DIVISION followed by a period and a space. The sections 
of the Data Division are optional only if the functions filled by each are not 
required to describe the data for the object program. The general format of the 
Data Division is given below. 
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General Format: 


DATA DIVISION, 


FILE SECTION. 


WORKING-STORAGE SECTION. 


REPORT SECTION. 


The names of the sections in the Data Division are fixed and their required 
order of appearance is as shown. The section header for the File Section is 
followed by one or more sets of entries composed of file description entries or 


sort-merge file description entries which are followed by associated record 


description entries. The section header for the Report Section is followed by 
one or more sets of entries composed of report description entries which are 
followed by associated report group description entries. The Working-Storage 
Section header is followed by data description entries for noncontiguous items, 
if any, followed by record description entries. 


STRUCTURE OF A RECORD DESCRIPTION 


A record description consists of a set of data description entries that 
describe the characteristics of a particular record, Each data description entry 
consists of a level-number followed by a data-name (if required), followed by a 
series of independent clauses as required. A record description has a 
hierarchical structure; therefore, the clauses used with an entry may vary 
considerably, depending on whether or not the entry is followed by subordinate 
entries. The record description structure is further defined in the Concept of 
Levels paragraph in Section III. The elements allowed in a record description 
are shown in the data description skeleton which follows in this section. 


FILE SECTION IN THE DATA DIVISION 


The File Section contains file descriptions (FD entries), sort file 6° 


+ descriptions (SD entries), and record descriptions (level-number 
entries) for both label and data records in files and for data records in sort. 
babel records and data records are defined in the same Manner | 


: aoa: ‘label records and data 
records of a file must ea follow the FD entry for the file. The FD and 
SD entries represent the highest level of organization in the File Section. 


The File Section header is followed by a file description entry or a 

‘merae file description entry. A file description entry consists of a level 
indicator (FD), followed by a data=name (the name of the file) and a series of 
independent clauses. The clauses specify: 


g 
% The size of the logical and physical records. 
& The names of the label records contained in the file and values of 


label items. 
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ae 
= ——E ——-- = = 


& The names of the data records of which the file is composed. 


The entry is terminated with a period. 


For sort © e file descriptions, the level indicator SD is followed by 
a data-name (the name of the file) and a series of independent Se enUSeS « The 


Ee Des (in the Procedure Division). no label 
procedures are under the control of Lie user and - ae rules for bleeking and 


WORKING-STORAGE SECTION IN THE DATA DIVISION 


Working-storage is that part of memory set aside for the intermediate 
processing of data. The difference between working-storage and file storage is 
that working-storage concerns the memory requirements for the storage of 
intermediate data results while file storage concerns the memory requirements 
for the storage of each record of the file. 


The Working-Storage Section consists of the section header, followed by 
data description entries for noncontiguous working-storage data items and record 
description entries, in that order. Each Working-Storage Section record=-name and 
each noncontiguous item name must be unique since they cannot be qualified. 
Subordinate data-names need not be unique if they can be made unique through 
qualification. 


The initial value of any data item in the Working-Storage Section except an 
index data item is specified by using the VALUE clause with the data item. VALUE 
can be specified only in terms of homogeneous characters (characters having the 
Same usage). Therefore, VALUE cannot be specified in a group item containing 
elementary items that have different usages. All of the rules for the expression 
of literals and figurative constants apply and the use of the VALUE clause 
cannot contravene these rules. The size of a literal used to specify an initial 
value of an alphabetic or alphanumeric item can be equal to or less than the 
Size specified in the PICTURE clause of the associated data entry, but the size 
of the literal cannot be greater than that. When the size of the literal is 
less, the normal rules for a MOVE statement for the literal apply. The size of a 
literal used to specify an initial value of a numeric item may be greater than 
the size specified in the PICTURE clause of the associated data entry, but the 
literal must not have a value that would require the truncation of nonzero 
digits. The initial value of index data items in working-storage cannot be 
predicted. 


Noncontiguous Working-Storage 


Items and constants in working-storage that are not related to one another 
in a hierarchy need not be grouped in records if they require no further 
subdivision. Instead, in working-storage, they are classified (and defined by 
tne user) as noncontiguous elementary items. Each noncontiguous elementary item 
is defined in a separate data description that begins with the _ special 
level-number, 77. For each level 77 data description entry, the data-name of the 
item must be specified and a PICTURE clause must be supplied. Other data 
description clauses are optional and can be used to complete the description of 
the item if necessary. However, the OCCURS clause is not meaningful in level 77 
entries and will cause a compilation error if used. 
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Working-Storage Records 


Data elements and constants in working-storage that are related to one 
another in a hierarchy must be grouped into records according to the rules for 
the formation of record descriptions (data description entries). All of the 
clauses used in a data description entry including REDEFINES, OCCURS, and COPY 
may be used in a working-storage record description. The skeletal format of the 
Working-Storage Section is given below. 


WORKING-STORAGE SECTION. 


77 data-description entry 
88 condition-name-1 


77 data-description entry 
01 data-description entry 
02 data-description entry 


66 data-name-n RENAMES data-name-m 
01 data-description entry 
02 data-description entry 
03 data-description entry 
88 condition-name-2 


REPORT SECTION IN THE DATA DIVISION 


A report represents a pictorial organization of data. To present a report, 
the physical aspects of the report format must be differentiated from the 
conceptual characteristics of the data to be included in the report. In defining 
the physical aspects of the report format, consideration must be given to the 
width and length of the report medium, to individual page structure, and to the 
type of hardware device on which the report is to be written. Structure controls 
are established to ensure that the report format is maintained. 


To define the conceptual characteristics of the data (the logical organi- 
zation of the report itself), the concept of level structure is used. Each 
report may be divided into respective report groups which, in turn, are 
subdivided into a sequence of items. Level structure permits the user to refer 
to an entire report-name, a major report group, a minor report group, an 
elementary item within a report group, etc. 


To create the report, the approach taken is to define the types of report 
groups that must be considered in presenting data in a formal manner. Types may 
be defined as HEADING groups, FOOTING groups, CONTROL groups, or DETAIL print 
groups. A report group describes a set of data that is to be considered as an 
individual unit, regardless of its physical format structure. The unit may be 
the presentation of: a data record, a set of constant report headings, or a 
series of variable control totals. The description of the report group is a 
separate entity. The report group may extend over several actual lines of a page 
and may be of any type described above which is necessary to produce the desired 
output report format. 
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The Report Section consists of two types of entries for each report; one 
describes the physical aspects of the report format, and the other describes 
conceptual characteristics of the items which make up the report and their 
relation to the report format. These are: 


oe Report description entry (RD). 


® Report group description entries. 
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FD SKELETON FD SKELETON 


File Description - Complete Entry Skeleton 


The file description specifies information concerning the physical struc- 
ture identification, and record-names that apply to a given file. The general 
formats of the FD entry, syntax rules for the complete entry, and_ special 
considerations for the entry follow. The individual clauses are described later 
in this section. 


Format 1: 


FD file~name COPY library-name 


identifier-l 


word-4 
; word-3 BY ( literal-2 : | 
identifier-2 


word=-2 
REPLACING word-l BY { Literal-1 \ 


Format 2: 


FD file-name 


RECORDS 
| Buoce CONTAINS [integer-1 TO | integer-2 ; 
CHARACTERS 
RECORD IS 
DATA data-name-1l es data-name-2 | oe & 
RECORDS ARE 
RECORD IS STANDARD 
LABEL per ae OMITTED : - 
RECORDS. ARE Ee of = 


REPORT IS 


report-name-1 [. report-name-2 ie 
REPORTS ARE 
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c™ 


FD SKELETON FD SKELETON 


literal-1l 
| vate OF data-name-5 IS 
data-name-6A 


literal=2 
| , data-name-7 iS | eee e 
data-name-8A 


Syntax Rules: 


Ls 


General 


The level indicator FD identifies the beginning of a file description 
and must precede the file-name. 


The clauses following the file-name in Format 2, except for the LABEL 
RECORD(S) clause, are optional and the order of entry is not 
Significant. 


The FD entry must be terminated by a period. 


The DATA RECORD(S) clause and the REPORT(S) clause must not both 
appear in the same file description entry. 


Rules: 


For a description of the COPY function, see Section VIII, the COBOL 
Library. 


Format 1 is used when the COBOL library contains the file description 
entry; otherwise, Format 2 is used, 
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SD SKELETON SD SKELETON 


File Description - Complete Entry Skeleton 


The description specifies information concerning the 


physical structure, identification, and record-names of the file to be sorted: or 


merged. The general formats of the SD entry, syntax rules for the complete 


entry, and special considerations for the entry follow. The individual clauses 


Format 1: 


SD file-name COPY library-name 


identifier-l 


word=4 
ig ~. “word=5- Bx literal-2 coe . 
identifier-2 


Format 2: 


word=-2 
REPLACING word-l1 BY literal-l 


sD file-name 


RECORD IS 
DATA | data-name-1[ ’ data-name-2 | eee 
RECORDS ARE 


E= CONTAINS [ integer-1 to | integer-2 CHARACTERS |. 


Syntax Rules: 


ie 


description and must precede the file-name. 


ie The clauses following file-name in Format 2 are optional and their 
order of entry is at the discretion of the user. 


3 The SD entry must be terminated by a period. 
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SD SKELETON SD SKELETON 


General Rules: 


Ls For a description of the COPY function, see Section VIII, the COBOL 
Library. 


Ze Format 1 is used when the COBOL library contains the sort-merge file 
description entry; otherwise, Format 2 is used. 


ae The file-name used in an SD entry can be referenced only in SORT, 
MERGE, and RETURN statements of the Procedure Division, except when it 


is used as a qualifier. 
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RD SKELETON RD SKELETON 


Report Description - Complete Entry Skeleton 


The report description entry contains information pertaining to the overall 
format of a report named in the File Section and is uniquely identified in the 
Report Section by the level indicator RD. The characteristics of the report page 
are provided by describing the number of physical lines per page and the limits 
for presenting specified headings, footings, and details within a page 
structure. Data items which act as control factors during presentation of the 
report are specified in the RD entry. Each report named in an FD entry in the 
File Section must be defined by an RD entry. The general formats of the RD entry 
and syntax rules follow. The individual clauses are described later in this 
section. 


Format 1: 


RD report-name [ copE mnemonic=name ] COPY library-name 


word-2 
REPLACING word-l BY literal-1 
identifier-1l 


word=4 
, word-3 BY literal-2 |--. ° 
identifier-2 


Format 2: 
RD report-name 


[ CODE mnemonic=-name-1 ] 


CONTROL IS FINAL 
identifier-1 [, identifier-2 | cee 
CONTROLS ARE FINAL, identifier-1l [ . identifier-2 | Avge 
LIMIT Is LINE 
PAGE integer-1l 
LIMITS ARE LINES 


[ » HEADING integer-2] 
[ ’ FIRST DETAIL integer-3] 
[+ LAST DETAIL integer-4 ] 
[ 


, FOOTING integer-5]| : 
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RD SKELETON RD SKELETON 


Syntax Rules: 
1 The level indicator RD identifies the beginning of a report 
description entry and must precede the report-name. 
i The report-name must appear in at least one FD entry REPORT(S) clause. 


3. The clauses following the report-name, except for the COPY clause in 


Format 1, are optional. The clauses may be defined in any order 
c 6 


Meas: 


4, The RD entry must be terminated by a period. 


General Rules: 


ks For a description of the COPY function, see Section VIII, the COBOL 
Library. 


2 Format l is used when the COBOL library contains the report 
description entry; otherwise, Format 2 is used. If the library-name is 
not unique, it may be qualified. 


3 The reserved words LINE-COUNTER and PAGE-COUNTER are automatically 
generated by the Report Writer based on specific entries and are not 
data clauses. Refer to the PAGE LIMIT(S) clause for additional 


information. 
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DATA DESCRIPTION DATA DESCRIPTION 
SKELETON SKELETON 


Data Description - Complete Entry Skeleton 


The data description entry is used to provide information. concerning the 
characteristics of a particular item of data. A detailed data description 
consists of a set of entries. Each entry defines the characteristics of a 
particular unit of data. With minor exceptions, each entry is capable of 
completely defining a unit of data. Because detailed data descriptions in COBOL 
involve a hierarchical structure, the contents of an entry may vary 
considerably, depending on whether or not the entry is followed by subordinate 
entries. In defining the lowest level or subdivision of data, the following 
information may be required: 


ike A level-number showing the relationship between this and other units 
of data. 
ne A data-name. 


cr The predominant usage of the item (COMPUTATIONAL or DISPLAY). 
4. The number of consecutive occurrences of elements in a table. 


ee The type of data item being described (alphabetic, numeric, or 
alphanumeric). 


G4 The presence of an operational sign (+ or -). 
re? The location of an actual or assumed decimal point. 


8. The location of editing symbols (such as § and ,). 


9. Justification and synchronization of the data. 
10g Special editing requirements such as zero suppression. 
he The initial value of an item or fixed value of a constant in 


working-storage. 


An entry defining a unit of data must not be contradicted by a subordinate 
entry. For example, after USAGE is defined, it applies to all subordinate 
entries and need not be respecified in the subordinate entries. 


The general formats of the detailed data description entry and syntax rules 
follow. The individual clauses are described later in this section. 
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DATA DESCRIPTION DATA DESCRIPTION 
a» SKELETON SKELETON 


Format 1: 
O01 data-name COPY library-name 


word=-2 
REPLACING word-l BY literal-l 
identifier-l 


word-4 
’ word=-3 BY literal-2 eee e 
identifier-2 


Format 2: 


Format 3: 


data-name-1l 
level-number ( 


FILLER 


i REDEFINES data-name-2 | 


PICTURE 
IS character-string 
FIC 


COMPUTATIONAL 


[ USAGE rs | 
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DATA DESCRIPTION DATA DESCRIPTION 
SKELETON SKELETON 


integer-1 TO integer-2 TIMES [DEPENDING ON data-name-3]| 
OCCURS 


integer-2 TIMES 


ASCENDING 
KEY IS data-name-4 & data-name-5 ] ies yas 


DESCENDING 


[ INDEXED BY index-name-1 [ : index-name-2 | pad 
SYNCHRONIZED LEFT 
SYNC RIGHT 


JUSTIFIED 


RIGHT 
JUST 


[BLANK WHEN ZERO | 


[VALUE IS literal-1 its 


Format 4: 


66 data-name-l RENAMES data-name-2 


THRU 
data=-name-3 ‘ 
THROUGH 
Format 5: 
VALUE IS 
88 condition-name literal-l 
VALUES ARE 
THRU 
literal-2 
THROUGH 
THRU 
, dliteral=-3 literal-4 er eres 
THROUGH 
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a 


DATA DESCRIPTION DATA DESCRIPTION 
SKELETON SKELETON 


Syntax Rules: 


General 


2477 


A data description entry must be terminated by a period. 

In Format 3, the level-number can be any number in the range 01-49 or 

rt can be. 77. 

The clauses can be written in any order except that: 

a The data-name-l or FILLER clause must immediately follow the 
level-number. 

Bs The REDEFINES clause, when used, must immediately follow the 
data-name-l clause. 

The PICTURE clause must be specified for every elementary data item 

except an index data item, in which case use of this clause is 

prohibited. 

The words THRU and THROUGH are equivalent. 

Rules: 

For a description of the COPY function (Formats 1 and 2), see Section 

VIII, the COBOL Library. 

The SYNCHRONIZED, PICTURE, JUSTIFIED, and BLANK WHEN ZERO clauses must 

only be specified for elementary data items. 

Format 5 is used for each condition-name. Each condition-name 


requires a separate level-number 88 entry. Format 5 specifies the 
name of the condition and the value, values, or range of values 
associated with the condition-name. The condition-name entries for a 
particular conditional variable must follow the entry describing the 
item with which the condition-name is associated. A condition-name 
can be associated with any data description entry that contains a 
level-number except for the following: 


ae Another condition-name. 
jee A level 66 item. 


age A group containing items with descriptions including JUSTIFIED, 
SYNCHRONIZED, or USAGE (other than USAGE DISPLAY). 


Gs An index data item. 


6-15 DD25A 


REPORT GROUP REPORT GROUP 
SKELETON SKELETON 


Report Group Description - Complete Entry Skeleton 


A report group may be as complex as a set of data made up of several print 
lines with many data items or as simple as one print line with one data item. A 
description of a set of data becomes a report group by the presence of a 
level-number 01 and a TYPE description. The level-number gives the depth of the 
group and the TYPE describes the purpose of the report group presentation. At 
object program execution, report groups are created as a result of Report Writer 
GENERATE statements in the Procedure Division. 


This entry defines the characteristics for a report group, whether a_ line, 
a series of lines, or an elementary item. The placement of an item in relation 
to the entire report group, the hierarchy of a particular report group, the 
format description of all items, and any control factors associated with the 
group are all defined in the entry. The system of level-numbers is employed here 
to indicate elementary items and group items of data. 


Conceptually, a report group is a line, or a series of lines, initially 
consisting of all SPACES; its length is determined by the compiler based on 
environmental considerations. Within the framework of a report, the order of 
report groups specified is not significant. Within the framework of the report 
group, the presented elements are described line by line from left to right and 
then from top to bottom. The description of a report group, analogous to _ the 
data record, consists of a set of entries defining the characteristics of the 
included elements. However, in the report group, SPACES are assumed except where 
a specific entry is indicated for presentation, whereas in the data record, 
every character position must be defined. 


The general formats of the report group description entry and syntax rules 
follow. The individual clauses are described later in this section. 


Format 1 


01 [data-name | COPY library-name 


word-2 
REPLACING word-1 BY literal-1l 
identifier-l 


word-4 
, word=3 BY literal-2 ears ‘ 
identifier-2 
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REPORT GROUP REPORT GROUP 
SKELETON SKELETON 


Format 2: 


01 [ data-name-1 | 


integer-1l 
LINE NUMBER IS PLUS integer-2 
NEXT PAGE 


integer-3 
NEXT GROUP IS PLUS integer-4 
NEXT PAGE 


REPORT HEADING 


PAGE HEADING 


f Sour HEADING 


CH 
EYPe. 15 DETAIL 


identifier-l 
FINAL 
DE 


{nok eae ‘a } 


FINAL 


Bace FOOTING 


PF 
REPORT FOOTING 
une 


DISPLAY 
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"* 


REPORT GROUP 
SKELETON 


Format 3: 


level=number [ data-name-1 | 


Format 4: 


[ COLUMN NUMBER IS integer-1| 
[ BLANK WHEN ZERO | 


[ GROUP INDICATE | 


JUSTIFIED 
RIGHT 
JUST 


integer=-2 


LINE NUMBER IS { PLUS integer=3 


NEXT PAGE 


PICTURE 
IS character=-string 


} 


ri 


identifier-1l 
RESET ON 


FINAL 


SOURCE IS [ SELECTED] identifier-2 
SUM identifier- [, identifier-4] 


VALUE IS literal-1l 


* 


j 


REPORT GROUP 
SKELETON 


oe [ UPON data~-name-2 a} 


DD25 


REPORT GROUP REPORT GROUP 
SKELETON SKELETON 


o 


Syntax Rules: 


cae 


General 


The clauses in Format 1 must be presented in the order shown. Except 
for the data-name clause, which must immediately follow the 
level=number when present, the clauses in Formats 2 and 3 may _ be 
written in any order. 
A report group must have a data-name in order to be referred to by a 
Procedure Division statement. 
If the COLUMN NUMBER clause is present in the data description of an 
elementary data item, the data description must also contain the 
PICTURE clause and one of the SOURCE, SUM, or VALUE clauses. 
The report group description entry must be terminated by a period. 
In Format 3 4 , level-number may be any number from 01 to 
49, 

Rules: 
For a description of the COPY function (Formats 1 and 4), see Section 
VIII, the COBOL Library. 
Format 2 is used to indicate a report group; the report group extends 
from this entry to the next report group level 01 entry. 
When LINE NUMBER is specified in Format 2, entries for the first 
report line within the report group are presented on the specified 
line. 
Format 3 is used to indicate an elementary item or group item within a 
report. group. 
If a report group is an elementary entry, Format 3 may include the 
TYPE and NEXT GROUP clauses to specify the report group and elementary 
item in the same entry. 
When LINE NUMBER is specified for Format 3, sequential entries with 
the same level=-number in the report group are implicitly presented on 
the same line. 
A LINE NUMBER at a subordinate level must not contradict a line number 
at a group level. 
The NEXT GROUP clause, when specified, refers to the spacing (at 
object program execution) between the last line of this report group 
and the first line of the next report group. 
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DATA DIVISION CLAUSE DESCRIPTIONS 


Descriptions of the Data Division clauses are contained on the following 


pages. VY 


6-20 DD25 


BLANK WHEN ZERO BLANK WHEN ZERO 


The BLANK WHEN ZERO clause is used to enable the blanking of an item when 
that item's value is zero. The clause is optional. 


General Format: 


BLANK WHEN ZERO 


Syntax Rules: 


ie The BLANK WHEN ZERO clause may be used only for an elementary item 
whose PICTURE is specified as numeric or numeric edited. 


La This clause cannot be used for variable-length items. 


General Rules: 


ge When this clause is used, the item contains only spaces when the value 
of the item is zero. 


ae When used for an item whose PICTURE is numeric, the category of the 
item is considered to be numeric edited. 
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BLOCK CONTAINS BLOCK CONTAINS 


ph 
‘the standard ph 


General Format: 


RECORDS 
BLOCK CONTAINS [integer-1 To | integer-2 {7 
CHARACTERS 
Syntax Rule: 
i Integer-1 (when used) and integer-2 must be unsigned nonzero integers. 
General Rules: 
ss For mass storage files, the size of a physical record may be given in 


terms of records only if one of the following conditions does not 
exist. The CHARACTERS option must be specified if any of the following 
conditions exist. 


ae Logical records extend across physical records. ww 


b. The physical record contains padding (area not contained in a 
logical record). 


c. Logical records are grouped so that an inaccurate physical record 
size would be implied. 


oe When the CHARACTERS option is used, the physical record size is 
specified in terms of the number of standard characters contained in 
the physical record, regardless of the types of characters used to 
represent the items within the physical record. 

size of the 


4, it represents the exact 


5% The use of the word CHARACTERS in the clause is optional. Whenever the 
keyword RECORDS is not specifically written in the clause, integer-1l 
nt the number of characters in the 


0,9, 9,0,9,9,9,0,0,5,6,0,8,6.0.8.6.6 9.5.6.6 gums e+ 0 6 + ues o.0 6 6.4.4 0\0 60.4.0.0 6.0.0 6.0 0 came 0 Glo Que e'sve'e"ste'stetetgiratatetatytetetetate ettetete Mats streets et Mr nt eteet rears 
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BLOCK CONTAINS BLOCK CONTAINS 


When the RECORDS phrase is used with variable-length records, the 
block size is equal to the maximum record size (in computer words) 
multiplied by the number of records plus one. 


For mass storage files in the RANDOM ACCESS mode, the physical record 
size associated with the CHARACTERS option is considered identical 
with the logical record size. Depending on the mass storage device 
normally intended for the file, the physical record size may be 
adjusted for efficiency by using this clause with the CHARACTERS 
option. Integer-2 may range from 384 to 24,570 characters (which 
results in record sizes in the range 64 to 4095 words). A size that is 
not modulo 384 characters will result in wasted space. 
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CODE 


CODE 


The CODE clause of the RD entry is used to affix a unique character to each 
report group generated in the report. The unique character identifies each print 
line as belonging to a specific report. 


General Format: 


CODE mnemonic-name-1 


General 


by 


Rules: 

CODE mnemonic-name-l indicates a unique character (s) which is 
automatically affixed to and identifies each line of the report. More 
than one report may then be produced simultaneously onto one output 
device for later individual report selection. 

The mnemonic-name must be identified with a unique character in the 
SPECIAL-NAMES paragraph of the Environment Division. Unique character 
assignment must be assured when the program is to produce more than 
one report. 
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COLUMN NUMBER COLUMN NUMBER 


The COLUMN NUMBER clause in a report group description entry is used to 
indicate the absolute column number on the printed page of the leftmost 
character of the elementary item (the first print position of the item on the 
line). 


General Format: 


COLUMN NUMBER IS integer-1l 


Syntax Rules: 


Ae The COLUMN NUMBER clause is used only at the elementary level within a 
report group. 


ai Integer-l must be an unsigned and nonzero integer. The first position 
of the print line is considered to be COLUMN NUMBER l. 


a For any given LINE NUMBER specification within a report group, COLUMN 
NUMBER entries must be indicated from left to right. 


r \ General Rule: 


Ls The COLUMN NUMBER clause indicates that the associated elementary item 
is presented in the output report group. If COLUMN NUMBER is not 
specified for an elementary item, that elementary item is included in 
the description of the report group for control purposes but is not 
presented when the report group is produced at object program 
execution. 
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CONTROL CONTROL 


The CONTROL(S) clause in the report description (RD) entry is used to 
indicate the identifiers which specify the control hierarchy (the control 
breaks) for this report. 


General Format: 


CONTROL IS FINAL 
identifier-1l & fasnesersred | hws 
CONTROLS ARE FINAL, identifier-l [ F identifier-2]| aes 


Syntax Rules: 


Ls The identifiers specify the control hierarchy for this report and are 
listed in order from major to minor. FINAL is the highest control, 
identifier-1 is the major control, identifier-2 is the intermediate 
control, etc. The last identifier specified is the minor control. 


2% The identifiers used in the CONTROL clause must be defined in the File 
Section or Working-Storage Section of the Data Division. 


General Rules: 


ce FINAL is a reserved word that indicates the highest control for this 
report. A TYPE CONTROL HEADING FINAL report group is only produced 
once, at the beginning of the report, when the first GENERATE 
statement is executed. Similarly, a TYPE CONTROL FOOTING FINAL report 
group is produced only once, at the end of a report, when the 
TERMINATE statement is executed. 


2% The CONTROL clause is required when CONTROL HEADING or CONTROL FOOTING 
report groups are specified. 


3a The identifiers specified in the CONTROL clause are the only 
identifiers referred to by the RESET and TYPE clauses of a report 
group description entry for this report. An identifier used in the 
CONTROL clause cannot be referred to by more than one TYPE CONTROL 
HEADING report group and one TYPE CONTROL FOOTING report group. 
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COPY | COPY 


The COPY clause is used in association with a file or data-name in FD, 
RD, record description, and report group description entries ~The COPY clau 
used to direct the compiler to duplicate text from ¢th | 
library into the source program. 


Format 1: 


COPY library-name 


word-2 
REPLACING word-l BY identifier-l 
literal-l 


word=-4 
, word=3 BY identifier-2 ee ‘ 
literal-2 


Format 2: 


Syntax Rules: 


a In Format 1, when the COPY clause is specified, the library-name is 
required. The library-name must be identical to the name associated 
with the desired text on the library. 


aR In Format 1, a word is any COBOL word and may be one of the following: 


# Condition=-name 
® Data=name 

® File-name 

@ Mnemonic=-name 


3% In Format 1, the COPY clause may be specified only at the 01 level in 
data description entries and report group description entries. 


General Rules: 


hie Format 1 of the COPY clause represents the American National Standard 
COPY function. F : 8 # PY £1 ae 


2 For a detailed description of the COPY clause, see Section VIII, the 
COBOL Library, and Section XIV of the COBOL User's Guide. 
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se 
—=— eee — nnn 


data-name/FILLER data-name/FILLER 


TT 


The data-name clause is used to _ specify the name of the data being 
described. The FILLER clause is used to specify an elementary item of the 
logical record that cannot be referred to directly. 


General Format: 


data=name 
level-number 
FILLER 


Syntax Rules: 


Ls In the File Section and Working-Storage Section, a data-name or the 
keyword FILLER must be the first word following the level-number in 
each data description entry. 


De In the Report Section, a data-name need not appear in a data 
description entry and the word FILLER cannot be used. 


General Rules: 


L. The keyword FILLER can be used to name an elementary item in a record, 
but that item then cannot be referred to directly under any 
circumstances. 


BD A data-name must be supplied in the Report Section when: 


ae The data-name represents a report group to be referred to by a 
CENERATE or a USE statement in the Procedure Division. 


‘om Reference is to be made to the SUM counter in the Procedure 
Division or in the Report Section. 
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DATA RECORDS DATA RECORDS 


The DATA RECORDS clause is used to provide documentation for the names of 
data records within their associated files (SD or FD entries). 


General Format: 


RECORD IS 
DATA data-name-1l E data-name-2 ] 
RECORDS ARE 


Syntax Rule: 


Ave Data-name-l and data=-name-2 are the names of data records. They must 
have level-number 01 data descriptions (with the same names ) 
associated with them. 


General Rules: 


Lis The presence of more than one data-name indicates that the file 
contains more than one type of data record. If record sizes (in words) 
are not equal, the file is assigned the variable-length record format 
and its recording mode must be binary. The records of the file need 
not have the same description The order in, Which. they occur as O02 
entries is| not significant : betes Fi 


4 Conceptually, all data records in a file share the same area. This 
concept is not altered by the presence of more than one type of data 
record ina file. 
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GROUP INDICATE GROUP INDICATE 


The GROUP INDICATE clause in a report group description entry is used to 
indicate that the elementary item with which it is associated is to be produced 
only on the first occurrence of the item after any CONTROL or PAGE break. 


General Format: 


GROUP INDICATE 


General Rules: 


dis The GROUP INDICATE clause must be specified only at the elementary 
item level within a TYPE DETAIL report group. 


Zs When an elementary item within a TYPE DETAIL report group is specified 
as GROUP INDICATE, it is presented in the first DETAIL report group 
that contains it after a CONTROL break and it is presented in the 
first DETAIL report group containing it on a new page even though a 
CONTROL break did not occur. 
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JUSTIFIED JUSTIFIED 


The JUSTIFIED clause in a data description entry is used to. specify 
nonstandard positioning of data within a receiving data item. 


General Format: 


JUSTIFIED 
RIGHT 
JUST 


Syntax Rules: 
hs The JUSTIFIED clause can be specified only at the elementary item 
level. 
Aa JUST is an abbreviation for JUSTIFIED. 


General Rules: 


aa The JUSTIFIED clause cannot be specified for an item that has any of 
the following properties: 


ae Class numeric or numeric edited. 
Ds 
cS. 
2% If the receiving data item is alphanumeric (other than a numeric 


edited data item) or alphabetic and the JUSTIFIED clause is not 
specified, the sending data item is moved to the receiving character 
positions and aligned at the leftmost character position in the data 
item with space-fill or truncation to the right. 


vs When the receiving data item is described with the JUSTIFIED clause 
and the sending data item is larger than the receiving data item, the 
leftmost characters are truncated. When the receiving data item is 
described with the JUSTIFIED clause and the sending data item is 
smaller than the receiving data item, the data is aligned at _ the 
rightmost character position in the data item with space-fill on _ the 
left. 
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LABEL RECORDS LABEL RECORDS 


The LABEL RECORD(S) clause in the FD entry is used to state whether or not 
label records are present and to identify them if they are present. 


General Format: 


LABEL 


RECORD IS STANDARD 
\ { om TTED ; 
RECORDS ARE 2 


Syntax Rules: 


A The LABEL RECORD(S) clause is required in every file description 
entry. 


General Rules: 


Ly LABEL RECORD(S) STANDARD indicates that logical labels that conform to 
the Series 60/6000 label format specifications are considered to exist 
for the file even though they may not be recorded on some of the 


physical devices to which the file may be assigned. (For example, 
label records associated with mass storage files are not physically 
recorded on the external storage device. In this case, USE procedures 
associated with the file will act upon dummy label = space. ie 


identifying information is to be placed on the external storage 
device, the information must be written as if it were a data record.) 
The STANDARD option must be used whenever system standard format has 
been explicitly or implicitly specified for the file. 


his LABEL RECORD(S) OMITTED indicates that no logical labels are 
considered to exist for a file. The OMITTED option must not be used 
if system standard format has been explicitly or implicitly specified 
for the file. 
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LABEL RECORDS LABEL RECORDS 


2/77 


y are exp 


“the specified record format will be used. 


Conceptually, all label records within the file steed the Same label 
buffer area in memory. If more than one label=n it 
is an implicit redefinition of the same label area. 


Refer to the description of the LABEL RECORD(S) clause in Section III 
of the COBOL User's Guide for additional information. 
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level-number level-number 


The level-number entries show the hierarchy of data within a logical record 
or report group. Level-number entries are also used to identify entries for 
condition-names, working-storage items, noncontiguous data items, and the 
RENAMES clause. 


The concepts of hierarchy of data and the use of Jlevel-numbers are 
described in Section III. 


General Format: 


level-number 


Syntax Rules: 


dog 


A level-number is required as the first element in each data 
description entry. 


Data description entries that are subordinate to FD or SD entries may 
use level-numbers with values in the range 01 (or 1) through 49, or 
level-number 66, or level-number 88. 


Data description entries that are subordinate to an RD entry may only 
use level-numbers whose values are in the range 01 through 49. 


Multiple level O01 entries that are subordinate to a level indicator 
(FD, SD, or RD), represent implicit redefinitions of the same area. In 
other words, the first occurrence defines an area, and all subsequent 
occurrences redefine the same area. 


General Rules: 


ae 


A level 01 entry must be used to identify the first entry in each 
record description and in each report group description. 


When no real concept of level exists, the special level-numbers 66, 
77, and 88 are assigned as follows: 


ae Level-number 66 is used in a data description entry to identify a 
RENAMES entry. Format 4 of the data description skeleton must be 
used. 

Ds Level-number 77 entries may be used in the Working-Storage 


Section to identify noncontiguous data items. Format 3 of the 
data description skeleton must be used. 


Gs Level-number 88 entries are used to define condition-names 
associated with conditional variables and may be used in the File 
Section and the Working-Storage Section. Format 5 of the data 
description skeleton must be used. 
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LINE NUMBER LINE NUMBER 


The LINE NUMBER clause is used to indicate the line number of this entry. 
The line number may be absolute or relative and may refer either to the page or 
to the previous entry. 


General Format: 


integer=-1 
LINE NUMBER IS PLUS integer-2 


NEXT PAGE 


Syntax Rules: 


Ty 


General 


i na 


Integer-l and integer-2 must be unsigned nonzero integers. Integer-1 
must be within the range specified in the PAGE LIMITS clause in the 
associated RD entry. 


The LINE NUMBER clause must be given for each report line of a report 
group. For the first line of a report group, the LINE NUMBER clause 
must be specified at the report group level, or at a group level 
subordinate to the report group level but prior to the first 
elementary item in the line, or as a part of the entry which describes 
the first elementary item in the line. 


For report lines other than the first line in a report group, the LINE 
NUMBER clause must be specified at a group level subordinate to the 
report group level but prior to the first elementary item in the line, 
or aS a part of the entry which describes the first elementary item in 
the line. 


Rules: 


Integer-l indicates an absolute line number. The LINE-COUNTER is set 
to the value of integer-1l for printing the item in this entry (and 
following entries in the report group) until a different value for the 
LINE-COUNTER is specified in another LINE NUMBER clause. 


Integer-2 indicates a relative line number. This number increments the 
LINE-COUNTER for printing the item in this entry (and following 
entries in the report group) until a different value for the 
LINE-COUNTER is specified in another LINE NUMBER clause. 


If the LINE NUMBER clause is specified at the report group level, 
entries for the first report line within the report group are 
presented on the specified line number. If the LINE NUMBER clause is 
specified for an entry on other than the report group level, 
sequential entries following that entry within the report. group that 
have the same level-number are presented on the same line. A _ line 
number at a subordinate level cannot contradict a line number at a 
group level. 
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LINE NUMBER LINE NUMBER 


4, Within a report group description entry, an absolute line number 
cannot be preceded by a relative line number and absolute line numbers 
must be given in ascending order. 


ae The NEXT PAGE phrase is: used to indicate an automatic skip to the next 
is DE ee ee 
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NEXT GROUP NEXT GROUP 


The NEXT GROUP clause in a report group description entry is used to 
indicate the spacing that is to follow the last line of the report group. 


General Format: 


integer-1 
NEXT GROUP IS PLUS integer-2 
NEXT PAGE 


Syntax Rule: 


Ls Integer-l and integer-2 must be unsigned nonzero integers. When used, 
integer-1l cannot exceed the maximum number of lines specified per 
report page in the PAGE LIMITS clause of the associated RD entry. 


General Rules: 


he Integer-l indicates an absolute line number that sets the LINE-COUNTER 
to this value after producing the last line of the current report 
group. 


Li Integer-2 indicates a relative line number that increments’ the 
LINE-COUNTER by the value of integer-2. Integer-2, therefore, 
represents the number of lines to be skipped following the last line 
of the current report group. Further spacing is specified by the LINE 
NUMBER clause of the next report group produced. 


cr The NEXT PAGE phrase, when used, indicates an automatic skip to the 
next page following the generation of of the 
report group. Appropriate OVER /OV. 


4, The NEXT GROUP clause may appear only in a level 01 entry that defines 
the report group. When specified for a CONTROL FOOTING/HEADING report 
group, the NEXT GROUP clause results in automatic line spacing only 
when a control break occurs on the level for which that control is 
specified. 
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OCCURS 


OCCURS 


The OCCURS clause in a data description entry is used to define tables of 
repeated items. Use of this clause eliminates the need for separate entries for 
repeated data and supplies information needed for the application of subscripts 


or indexes. 


Format 1: 


OCCURS integer-2 TIMES 


 neaeaate 


DESCENDING 


hres IS data=-name-2 ie data-name-3 ] ein eae 


INDEXED BY index-name-1l | , index-name=-2 ] ‘ae 


Format 2: 


OCCURS integer-1 TO integer-2 TIMES | DEPENDING ON davocnenset | 


ASCENDING 
KEY IS data-name-2 | , data-name-3 ] eats ere 


DESCENDING 


INDEXED BY index-name-l | , index=-name-2 ] ee 


Syntax Rules: 


Lae 


Integer-l1 and integer-2 must be positive integers. Where both are used 
(in Format 2), the value of integer-1 must be less than the value oF 
integer-2. The value of integer-1l may be zero but integer-2 must not 


be zero. 


the DEPENDING phrase) must describe a positive integer 


Data-names used in the OCCURS clause may be qualified. 


Data-name-2 must either be the name of the entry containing the OCCURS 
clause or the name of an entry subordinate to the entry containing the 


OCCURS clause. 


When used, data-name-3, etc., must be the name of an entry subordinate 
to the group item that is the subject of this data description entry. 
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OCCURS OCCURS 


6. The INDEXED BY phrase is required when the subject of this data 
description entry (or an entry subordinate to this entry if it is a 
group item) is to be referred to by indexing. The index-names 
identified in the OCCURS clause are not defined elsewhere since the 
allocation and format of these index-names is hardware dependent. Not 
being data, these index-names cannot be associated with any data 
hierarchy. 


as The DEPENDING ON phrase is required only when the end of the 
occurrences of the item cannot otherwise be determined. 


os The OCCURS clause may not be specified in a data description entry 
that has a level=-number 01, 66, 77, 88, or in an entry that describes 
an item whose size is variable. An item is considered to be variable 
in size if its data description, or the description of any item 
subordinate to it, if it is a group item, uses Format 2 of the OCCURS 
clause. 


ee OX 
entry for data-name-l must occur prior to the level-number entry 
containing the OCCURS clause in which data-name-1l is used. 


LO, Any entry that contains, or has a_ subordinate entry that contains, 
Format 2 of the OCCURS clause, cannot be the object of a REDEFINES 
clause. 


tac If data=-name-2 in the KEY phrase is not the subject of this entry, 
then: 


ae All of the items identified by the data-names used in the KEY 
phrase must be contained in the group item that is the subject of 
this entry. 


Ds The items identified by the data-names in the KEY phrase may not 
be described by an entry that contains an OCCURS clause or be 
subordinate to an entry containing an OCCURS clause. 


Lex Index-name-l, index-name-2, ..., must be unique words within the 
program. 


General Rules: 


Ls The OCCURS clause is used to define tables and other homogeneous’ sets 
of repeated data. The data-name that is the subject of this data 
description entry must either be subscripted or indexed whenever it is 
referred to in a Procedure Division statement other than the SEARCH 
statement. In addition, if the subject of this data description entry 
is the name of a group item, all of the data-names belonging to the 
group must be subscripted or indexed whenever they are used as 
Operands. 


2% All data description entry clauses except the OCCURS clause itself 


associated with an item whose description includes an OCCURS clause 
apply to each occurrence of the item described. 
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OCCURS 


OCCURS 


In Format 1, the value of integer-2 represents the exact number of 
occurrences. In Format 2, the value of integer-2 represents’ the 
maximum number of occurrences and the value of integer-l represents 
the minimum number of occurrences. Thus, Format 2 specifies a variable 
number of occurrences of the item but does not imply that the length 
of the item is variable. 


The value of data=-name-1l is the count of the number of occurrences of 
the subject and this value must not exceed integer-2., Reducing the 
value of data-name-l makes the contents of those occurrences of the 
data items, whose occurrence numbers are in excess of the value of the 
data item referenced by data-name-1l, unpredictable. 


When a referenced group item has a subordinate entry that specifies 
Format 2 of the OCCURS clause, only that part of the table area that 
is specified by the value of data-name-l will be used in the 
operation. 


The results of OCCURS...DEPENDING generally differ from one computer 
to another. In Series 60/6000 COBOL, the results are as follows: 


a. The DEPENDING phrase..may not. be specified in the record 
descriptions of a sort file or a merg e 


jae In the File Section, OCCURS...DEPENDING results in suppressing 
table residue on the peripheral device, as described below, when 
the following criteria are met: 


® Data-name-l is described as € 

@ Data-name-l is subordinate to the same record description 
entry. 

% Data-name-l precedes the data description entry containing 


the OCCURS...DEPENDING clause. 


When compression is’ to take place, the compiler will 
automatically chat n te a process area for the file, whether or 
TE 7 15S AREA phrase is specified in the I-O-CONTROL 


paragraph. 


on When a WRITE statement references a record which may be 
compressed, the object program examines the output record for 
opportunities for residue suppression. Such opportunities are 
rejected unless two or more machine words can be suppressed. In 
the latter case, suppression proceeds on a machine word basis; 
the whole-word portion of the residue of each table is’ replaced 
by a Single control word. Each variable-length table in the 
record presents an opportunity for residue suppression. Actual 
Suppression takes place in an implicit move from the process area 
to the output buffer. 
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OCCURS 


OCCURS 


a. When a READ statement references a file containing records that 
may be compressed, the record is implicitly moved from the input 
buffer to the process area and expanded to the format it had in 
memory prior to residue suppression. 


e. When OCCURS...DEPENDING is used with any record of a file that 
may be compressed, the data format is affected in several ways. 


@ The variable-length record (VLR) format is automatically 
applied. 
® In addition to any residue suppression control words needed, 


each record on the peripheral device begins with a control 
word required for reconstruction. 


& The recording mode must be binary (explicitly or 
AND LECLELY) is 


The KEY phrase is used to indicate that the repeated data is arranged 
in ascending or descending order according to the values contained in 
data-name-2, data-name-3, etc. The data-names are listed in their 
descending order of significance, from most significant to least 
Significant. 
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PAGE LIMIT PAGE LIMIT 


The PAGE LIMIT(S) clause in a report description entry is used to indicate 
the specific line control to be maintained within the logical presentation of a 


page. 


General Format: 


LIMIT IS LINE 
PAGE integer-1 
LIMITS ARE LINES 


E HEADING integer=2 ] , FIRST DETAIL integer-3 | 


, LAST DETAIL integer~4 | E FOOTING integer-5 | 


Syntax Rules: 


Ls Integer-1 through integer-5 must be unsigned nonzero integers. 

as Integer-2 through integer-5 each must either be less than or equal to 
integer-l. 

a6 Only one PAGE-LIMIT clause may be specified in each report description 
entry. 


4. A PAGE LIMIT(S) clause need not be included in the RD entry when an 
association between report groups and the physical format of a page is 
not required. 


General Rules; 


Es The fixed data-names PAGE-COUNTER and LINE-COUNTER are automatically 
generated by the Report Writer when the PAGE LIMIT(S) clause is 
included in the RD entry. 


2s The PAGE LIMIT integer-1 LINES clause is required to specify the depth 
of the report page; the depth of the report page may or may not be 
equal to the physical perforated continuous form often associated with 
the page length in a report. 


Sis LINE-COUNTER must be capable of containing the value specified by 
integer-l. 


4, If absolute line spacing is indicated for all the report group(s), 
none of the integer-2 through integer-5 controls need to be specified. 
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PAGE LIMIT PAGE LIMIT 


If relative spacing is indicated for individual TYPE DETAIL report 
group description entries, some or all of the above limits must be 
defined, dependent on the type of report groups within the report, so 
that the Report Writer can maintain control of page format. 


® HEADING integer-2: the first line number of the first heading 
print group. No print group will start preceding integer-2. 


® FIRST DETAIL integer-3: the first line number of the first 
normal print group, that is, body; no DETAIL or CONTROL print 
group will start before integer-3. 


& LAST DETAIL integer-4: the last line number of the last normal 
print group, that is, body; no DETAIL or CONTROL HEADING print 
group will extend beyond integer-4. 


2 FOOTING integer-5: the last line number of the last CONTROL 
FOOTING print group; no CONTROL FOOTING print group will start 


When relative line numbers are specified for report groups, PAGE 
LIMITS integer-l is specified and some or all of the HEADING 
integer-2, FIRST DETAIL integer-3, LAST DETAIL integer-4, or FOOTING 
integer-5 phrases are omitted, the following implicit control is 
assumed for the omitted specifications: 


ae If HEADING integer-2 is omitted, integer-2 is considered to be 
equivalent to the value one (1), that is, line number one. 


b. If FIRST DETAIL integer-3 is omitted, integer-3 is considered to 
be equivalent to the value of integer-2. | 


Cs If LAST DETAIL integer-4 is omitted, integer-4 is considered to 
be equivalent to the value of integer-5. 


oe If FOOTING integer-5 is omitted, integer-5 is considered to be 
equivalent to the value of integer-4. 


eC. If both LAST DETAIL integer-4 and FOOTING integer-5 are omitted, 


integer-4 and integer-5 are both considered to be equivalent to 
the value of integer-l. 
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PAGE LIMIT PAGE LIMIT 


The following chart represents page format report group control when 
the PAGE LIMIT clause is specified. 


REPORT PAGE/ DETAIL/ CONTROL PAGE/ | 
HEADING/ ‘OVERFLOW CONTROL FOOTING OVERFLOW 
FOOTING HEADING HEADING FOOTING 


integer-2 

integer-3 

integer-4 an te 

integer-5 

integer-1l se 
Absolute LINE NUMBER or absolute NEXT GROUP spacing (see report group 


description entry) must be consistent with controls specified in the 
PAGE LIMIT clause. 


PAGE-COUNTER Rules: 


1. 


ae by the Report Writer, after the production of any PAGE 6r 


PAGE-COUNTER is a fixed data-name used to reference a counter 
generated by the Report Writer to be used as a SOURCE data item in 
order to automatically present consecutive page numbers. 


One PAGE-COUNTER is supplied for each report described in the Report 
Section. 


If more than one PAGE-COUNTER is given as a SOURCE data item within a 
given report, the number of numeric characters indicated by the 
PICTURE clauses must be identical. The size must indicate sufficient 
numeric character positions to prevent overflow. 


If more than one report description entry exists in the Report 
Section, PAGE-COUNTER must be qualified by the report-name. 
PAGE-COUNTER may be referred to in Data Division clauses and in 
Procedure Division statements. 


PAGE-COUNTER is initially set to one by the Report Writer; if a 
Starting value for PAGE-COUNTER other than one is desired, the user 
may change the contents of the PAGE-COUNTER by a Procedure Division 
statement after an INITIATE statement has been executed. 


PAGE-COUNTER is incremented by one each time a page break is 


of any PAGE oF 
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LINE-COUNTER Rules: 


qs 


; ve B er and/o A 
FOV presented. If a PAGE 
LIMIT(S) clause is written in the report description entry, a 


LINE-COUNTER is supplied for that report. 


If more than one report description entry exists in the Report 
Section, LINE-COUNTER must be qualified by the report-name. 
LINE-COUNTER may be referred to in Data Division clauses and in 
Procedure Division statements. 


Changing the LINE-COUNTER by Procedure Division statements may cause 
page format control in the Report Writer to become unpredictable. 


LINE-COUNTER is tested and incremented by the Report Writer based on 
control specifications in the PAGE LIMIT(S) clause and values 
specified in the LINE NUMBER and NEXT GROUP clauses. 


LINE-COUNTER is initially set to zero by the Report Writer; likewise, 
LINE-COUNTER is automatically reset to zero when the PAGE LIMIT 
integer-l LINES entry is exceeded during execution. 


When a relative LINE NUMBER indication or relative NEXT GROUP 
indication exceeds the LAST DETAIL PAGE LIMIT specification during 
object program execution, a page break occurs and LINE-COUNTER is 
reset to zero. No additional setting based on the relative LINE NUMBER 
indication or NEXT GROUP indication that forced the page break takes 
place. 


If an absolute LINE NUMBER indication or an absolute NEXT GROUP 
indication is equal to, or less than, the contents of the LINE-COUNTER 
during object program execution, the LINE-COUNTER is set to _ the 
absolute LINE NUMBER indication or the absolute NEXT GROUP indication 
following the implicit generation of any specified report groups. 


The value of the LINE-COUNTER during any Procedure Division test 
Statement represents the number of the last line used by the printing 
generated by the previous report group, or represents the number of 
the last line skipped by a previous NEXT GROUP specification. 


6-45 DD25 


PICTURE PICTURE 


The PICTURE clause is used to describe the general characteristics and 
editing requirements of an elementary item. 


General Format: 


PICTURE 
IS character-string 


PIC 


Syntax Rules: 


i A PICTURE clause may be specified only at the elementary item level. 


ae A character-string consists of certain allowable combinations of 
characters in the COBOL character set used as symbols. The allowable 
combinations determine the category of the elementary item. 


a< The maximum number of symbols allowed in the character-string is 30. 

4, The PICTURE clause must be specified for every elementary data item 
except an index data item, in which case use of this clause is 
prohibited. 


as PIC is an abbreviation for PICTURE. 


General Rules: 


1. Five categories of data may be described with a PICTURE clause; 
alphabetic, numeric, alphanumeric, alphanumeric edited, and numeric 
edited. 

# To define an item as alphabetic: 


a. Its PICTURE character-string may only contain the _ symbol 
"A'; and 


oe Its contents when represented in standard data format must 
be any combination of the twenty-six (26) letters of the 
Roman alphabet and the space from the COBOL character set. 


& To define an item as numeric: 


a Its PICTURE character-string can only contain the symbols 
[Ot 5 * Pty. tS*, end "> and 


Dis Its contents when represented in standard data format must 
be @ Combination of the Arabic numerais *0", *1*, *2*°, ~*3*, 
"4", "5S", "6%, *7', '8*, and "9", and the item may include 
an operational sign. 
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PICTURE 


& To define an item as alphanumeric: 


as Its PICTURE character=string is restricted to certain 
combinations of the symbols 'A', | = '9', and the 
item is treated as if the chatacters -string contained all 
'X's. A PICTURE character-string which contains all 'A's or 
al "SS, =ho gisieses + does not 
define an alphanumeric item; and 


Ds Its contents when represented in standard data format are 
allowable characters in the computer's character set. 


% To define an item as alphanumeric edited: 
a. Its PICTURE character-string is restricted to certain 
combinations of the following symbols: ‘A’, ‘"X'’, "9", ‘B', 
and '0O'; and 


(1) The character-string must contain at least one 'X' and 


at least one ‘BB’ of -'OQ* (zero): or 
(2) The character-string must contain at least one “'O' 
(zero) and at least one 'A'; and 
jaye Its contents when represented in standard data format are 


allowable characters in the computer's character set. 


® To define an item as numeric edited: 
a. Its PICTURE character-string is restricted to certain 
combinations Of the-svnpois. *B°4- 7 P*, OV). 8S 4.0 POs Ter, 
tg eee ee ge SE, ee et CRS A oy and “he. cunrendy 


symbol. The maximum “number of digit positions that may be 
represented in the character-string is 18; and 


oan The contents of the character positions of those symbols 
allowed to represent a digit in standard data format must be 
one of the numerals. 


The size of an elementary item, where size means the number of 
Character positions occupied by the elementary item in standard data 
format, is determined by the number of allowable symbols’ that 
represent character positions. An unsigned nonzero integer which is 
enclosed in parentheses following the symbols ‘A’, ',', 'X', '9', ‘'P', 
rag gp: eg ORGY OR* Sa or othe currency. syvinbol andicates: the 
number of consecutive occurrences of the symbol. The following symbols 
may: appear: only once in a given PICTURE: ‘S*, ‘"V', ‘.", ‘*CR*, and 
‘DR 


The functions of the symbols used to describe an elementary item are 
explained as follows: 


A Each 'A' in the character-string represents a character 
position which can contain only a letter of the alphabet or 
a space. 

B Each 'B' in the character-string represents a character 


position into which the space character will be inserted. 
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P The 'P' indicates an assumed decimal scaling position and is 
used to specify the location of an assumed decimal point 
when the point is not within the number that appears in the 
data item. The scaling position character 'P' is not 
counted in the size of the data item. Scaling position 
characters are counted in determining the maximum number of 


edited items 


numeric 


or numeric 


can appear only to 
left or right as a continuous’ string of 'P's within a 
PICTURE description. Since the scaling position character 
'p' implies an assumed decimal point (to the left of ty eo be 
''s are leftmost PICTURE characters and to the right of 
'p's if 'P's. are rightmost PICTURE characters), the assumed 
decimal point symbol 'v' is redundant as either the leftmost 
or rightmost character within such a PICTURE description. 


5 The letter 'S' is used in a character-string to indicate the 
presence of an operational Sign and must be written as the 
leftmost character in the PICTURE character-string. The 'S' 

is not counted in determining the size of the elementary 


V The 'v' is used in a character-string to indicate the 
location of the assumed decimal point and may only appear 
once in a character-string. The 'V' does not represent a 
character position and therefore is not counted in the size 
of the elementary item. When the assumed decimal point is 
to the right of the rightmost symbol in the string, the i ey 
is redundant. 


Xx Each 'x' in the character-string is used to represent a 
character position which contains any allowable character 
_from the computer's character set. CTURE 


Z Each 'Z' in a character-string may only be used to represent 
the leftmost leading numeric character positions which will 
be replaced by a space character when the contents Of = CHA 
character position are zero. Each 'Z' is counted in the 
size of the item. 


9 Each '9' in the character-string represents a character 


position which contains a numeral and is counted in the size 
of the item. 
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PTCTURE 


+,-,CR,DB 


Editing Rules: 


PICTURE 


Fach 'Q' (zero) in the character-string represents a 
character position into which the numeral zero will be 
inserted. The '0' is counted in the size of the item. 


Fach '‘',' (comma) in the character-string represents a 
character position into which the character ',' will be 
inserted. This character position is counted in the size of 
the item. 


When the character ae (period) appears in the 
Character-string, it is an editing symbol which represents 
the decimal point for alignment purposes and, in addition, 
represents a character position into which the character ',' 
will be inserted. The character '.' is counted in the size 
of the item. The symbols 'V' and '.' are mutually exclusive. 
For a given program, the functions of the period and comma 
are exchanged if the phrase DECIMAL-POINT IS COMMA is 
specified in the SPECIAL-NAMES paragraph. In this exchange, 
the rules for the period apply to the comma and the rules 
for the comma apply to the period whe 


These symbols are used as editing sign control symbols. When 
used, they represent the character position into which the 
editing sign control symbol will be placed. The symbols are 
mutually exclusive in any one character-string and each 
character used in the symbol is counted in determining the 
size of the data item. 


Each '*' (asterisk) in the character-string represents a 
leading numeric character position into which an asterisk 
will be placed when the contents of that position are zero. 
Each '*' is counted in the size of the item. 


The 'S' (currency symbol) in the character-string represents 
a character position into which a currency symbol is to be 
placed. The currency symbol in a character-string is 
represented by either the $ or by the single character 
specified in the CURRENCY SIGN phrase in the SPECIAL-NAMES 
paragraph. The currency symbol is counted in the size of the 
item. 


Lie Two general methods are used to perform editing in the PICTURE clause, 
either by insertion or by suppression and replacement. The four types 
of insertion editing are: 


a. Simple insertion. 
loge Special insertion. 
i, Fixed insertion. 

cy Floating insertion. 
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PICTURE 


PICTURE 


The two types of suppression and replacement editing are: 

a. Zero suppression and replacement with spaces. 

Bs. Zero suppression and replacement with asterisks. 

The type of editing which may be performed upon an item depends on the 


category to which the item belongs. The following list indicates which 
type of editing may be performed upon a given category: 


Category Type of Editing 

Alphabetic None 

Numeric None 

Alphanumeric None 

Alphanumeric Edited Simple insertion, '0' and 'B' 

Numeric Edited All, subject to the restrictions of 
Rule 3 below 

Any Variable- None 


Length Item 


Floating insertion editing and editing by zero suppression and 
replacement are mutually exclusive in a PICTURE clause. Only one type 
of replacement may be used with zero suppression in a PICTURE clause. 


Simple Insertion Editing. 

The ',' (comma), 'B' (space), and '0' (zero) are used as the insertion 
characters. The insertion characters are counted in the size of the 
item and represent the position in the item into which the character 
will be inserted. 


Special Insertion Editing. 


The '.' (period) is used as the insertion character and also 
represents the decimal point for alignment purposes. The insertion 
character used for the actual decimal point is counted in the size of 
the item. The use of the assumed decimal point, represented by the 
Ssympo.L. “V", _and the actual decimal ove y represented by the insertion 


pearing in the Gata Gescription entry. The result of special 


insertion editing is the appearance of the insertion character in the 
item in the same position as shown in the character-string. 


Fixed Insertion Editing. 
The currency symbol and the editing sign control symbols '‘'+', '-', 


'CR', 'DB' are the insertion characters. Only one currency symbol and 
only one of the editing sign control symbols can be used in a _ given 
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PICTURE 


PICTURE 


PICTURE character-string. When the symbols 'CR' or 'DB' are used, they 
represent two character positions in determining the size of the item 
and they must represent the rightmost character positions that are 
counted in the size of the item. The symbol '+' or ‘-"', when used, 
must be the leftmost or rightmost character position to be counted in 
the size of the item. The currency symbol must be the leftmost 
character position to be counted in the size of the item except that 
it may be preceded by either a '+' or a '=! symbol. Fixed insertion 
editing results in the insertion character occupying the same 
character position in the edited item as it occupied in the PICTURE 
character-string. Editing sign control Symbols produce the following 
results depending upon the value of the data item. 


Editing Symbol in 
PICTURE Data Item Data Item 
Character-String Positive or Zero Negative 


+ 
space 
2 spaces 
2 spaces 


Floating Insertion Editing. 


The currency symbol and editing sign control symbols '+' or '-' are 
the insertion characters and they are mutually exclusive as floating 
insertion characters in a given PICTURE character-string. 


Floating insertion editing is indicated in a PICTURE character-string 
by using a string of at least two of the allowable insertion 
characters to represent the leftmost numeric character positions into 
which the insertion characters can be floated. Any of the simple 
insertion characters embedded in the string of floating insertion 
characters or to the immediate right of this string are part of the 
floating string. 


In a PICTURE character-string, there are only two ways of representing 
floating insertion editing. One is to represent any or all of the 
leading numeric character positions on the left of the decimal point 
by the insertion character. The other is to represent all of the 
numeric character positions in the PICTURE character-string by the 
insertion character. 


represente y e 


ee oo = | : 
“insertion symbol string, whichever is farther to the left in the 


PICTURE character-string. The character positions preceding the 
insertion character are filled with spaces. 
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PICTURES 


PICTURE 


If all numeric character positions in the PICTURE character-string are 
represented by the insertion character, the result depends upon the 
value of the data. If the value is zero, the entire data item will 
contain spaces. If the value is not zero, the result is the same as 
when the insertion character is only to the left of the decimal point 
in the PICTURE character-string. 


To avoid truncation, the minimum size of the PICTURE character-string 
for the receiving data item must be the number of characters in the 
sending data item, plus the number of fixed insertion characters being 
edited into the receiving data item, plus one for the floating 
insertion character. 


Zero Suppression Editing. 


The suppression of leading zeros in numeric character positions is 
indicated by the use of the alphabetic character 'Z' or the character 
'*" (asterisk) as suppression symbols in a PICTURE character-string. 
These symbols are mutually exclusive in a given PICTURE 
character-string. Each suppression symbol is counted in determining 
the size of the item. If 'Z' is used, the replacement character will 
be the space; if the asterisk is used, the replacement character will 
lo] ea ae 


Zero suppression and replacement is indicated in a PICTURE 
character-string by using a string of one or more of the allowable 
symbols to represent leading numeric character positions which are to 
be replaced when the associated character position in the data 
contains a zero. Any of the simple insertion characters embedded in 
the string of symbols or to the immediate right of this string are 
part of the string. 


In a PICTURE character-string, there are only two ways of representing 
zero suppression. One is to represent any or all of the leading 
numeric character positions to the left of the decimal point by 
suppression symbols. The other is to represent all of the numeric 
character positions in the PICTURE character-string by suppression 
symbols. 


If the suppression symbols appear only to the left of the decimal 
point, any leading zero in the data which corresponds to a suppression 
symbol in the string is replaced by the replacement character. 
Suppression terminates at the first nonzero digit in the data 
represented by the suppression symbol string or at the decimal point, 
whichever is encountered first. 


If all numeric character positions in the PICTURE character-string are 
represented by suppression symbols and the value of the data is not 
zero, the result is the same as if the suppression characters were 
only to the left of the decimal point. If the value is zero, the 
entire data item will be spaces if the suppression symbol is ‘'Z' or 
all '*', except for the actual decimal point, if the suppression 
eunpol: 15. **". 


The symbols '+', '-', '*', 'Z', and the currency symbol, when used as 


floating replacement characters, are mutually exclusive within a given 
character-string. 
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PICTURE PICTURE 


Precedence Rules: 


The following chart shows the order of precedence when using characters as 
symbols in a character-string. An 'X' at an intersection indicates that the 
symbol(s) at the top of the column may precede, in a given character-string, the 
symbol(s) at the left of the row. Arguments appearing in indicate that the 
symbols are mutually exclusive. The currency symbol is indicated by 'cs'. 


In cases where the General Rules above and this chart conflict, the stated 
rules have precedence. 
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PICTURE PICTURE 


At least one of the symbols 'A', 'xX', 'Z', '9', or '*', or at least two of 
the symbols '+', '-', or ‘cs' must be present in a PICTURE string. 


Fixed insertion symbols '+' and '-', and other symbol 'P' appear twice. The 
first occurrence represents their use to the left of the PICTURE's numeric 
character positions and the second their use to the right of the PICTURE's 
numeric character positions. Other symbols 'Z', '*', 'cs', ‘'+', and '-' appear 
twice. The first occurrence represents the use before the decimal point 
position; the second the use after the decimal point position. 
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RECORD CONTAINS RECORD CONTAINS 


The RECORD CONTAINS clause in an FD or SD entry is used to specify the size 
of data records. 


General Format: 


RECORD CONTAINS [ integer-1 To] integer-2 CHARACTERS 


Syntax Rule: 


1. 


Integer-l and integer-2 must be unsigned nonzero integers. 


General Rules: 


Ls 


The size of each data record is completely defined in the record 
description (data description) entry; therefore, this clause is never 
required. When the RECORD CONTAINS clause is used, however, the 
following rules apply: 


ae Integer-2 may not be used by itself unless all of the data 
records in the file are the same size. In this case, integer-2 
represents the exact number of characters in the data record. 
When both integer-l and integer-2 are given, they refer to _ the 
minimum number of characters in the smallest data record and the 
maximum number of characters in the largest data record, 
respectively. 


Ds The size of the data record is specified in terms of the number 
of characters in the standard data format contained in the 
logical record, regardless of the type of characters used to 
represent the items within the logical record. The size of the 
record is determined by adding the number of characters in all 
the fixed-length elementary items to the sum of the maximum 
number of characters in all variable-length items subordinate to 
the record. This sum may be different from the actual size of the 
record. Refer to the SYNCHRONIZED and USAGE clauses. 
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RECORDING MODE RECORDING MODE 


General Format: 


General Rules: 


6-56 DD25 


REDEFINES REDEFINES 


The REDEFINES clause is used to describe the same memory area by different 
data description entries. This is accomplished in either the File Section or 
Working-Storage Section; it allows the same memory area to contain different 
data items. 


General Format: 
level-number data-name-l REDEFINES data-name-2 


NOTE: Level-number and data-name-l are not part of the REDEFINES' clause; 
they are shown only for clarity. 


Syntax Rules: 


deg The REDEFINES clause must immediately follow data-name-l. 


Ls The level-numbers of data-name-l and data-name-2 must be identical but 
cannot be 66 or 88. 


ee The REDEFINES clause cannot be used with level 01 data-names in the 
File Section. Implicit redefinition is provided by the DATA RECORDS 
clause in the file description entry. 


General Rules: 


Ls Redefinition begins at data-name-2 and continues until a level-number 
less than or equal to that of data-name-2 is encountered. 


os When the level-number of data-name-l is other than G1) then 
data-name-l must specify a memory area of the same size as 
data-name-2. The REDEFINES clause specifies only the redefinition of a 
memory area, not of the data items that occupy the area. 


a5 The same memory area may be redefined as many times as required. The 
entries giving the new descriptions of the memory area must follow the 
entries defining the area being redefined, without entries defining 
new memory areas intervening. Multiple redefinitions of the same 
memory area must all use as data-name-2 the data-name of the entry 
that originally defined the area. 


4, The data description entry for data-name-2 cannot contain an OCCURS 
clause nor can data-name-2 be subordinate to an entry containing an 
OCCURS clause. Neither the original definition nor any subsequent 
redefinitions of the area can include an item whose size is variable 
as defined for the OCCURS clause. 


oe The entries giving the new description of the memory area must not 
contain VALUE clauses, except in condition-name entries. 
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REDEFINES REDEFINES 
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RENAMES RENAMES 


The RENAMES clause is a level 66 data description entry that permits 
alternative, possibly overlapping, groupings of elementary items. 


General Format: 


THRU 
66 data=name-1l RENAMES data-name-2 data-name-3 |. 
THROUGH 


NOTE: Level-number 66 and data=-name-1 are not part of the RENAMES' clause; 
they are shown only for clarity. 


Syntax Rules: 


is All RENAMES entries associated with a given logical record must 
immediately follow that record's last data description entry. 


2s Data-name-2 and data-name-3 must be names of elementary items or 
groups of elementary items in the associated logical record. They 
cannot, however, be the same data-name. 


a5 A level 66 entry may not be used to rename another level 66 entry nor 


may it be used to rename a level 01, 77, or 88 entry. 
\ 


4, Data~name=l may not be used as a qualifier, and may only be qualified 


oe Neither data=-name-2 nor data-name-3 may have an OCCURS clause in its 
data description entry nor be subordinate to an item having an OCCURS 
clause in its data description entry. 

6% Data-name-2 and data=name-3 may be qualified. 


1% The words THRU and THROUGH are equivalent. 
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RENAMES 


RENAMES 


General Rules: 


One or more RENAMES entries may be written for a logical record. 


When data-name-3 is specified, data-name-l is a group item that 
includes all the elementary items starting with data-name-2 (if 
data-name-2 is an elementary item) or starting with the first 
elementary item in data-name-2 (if data-name-2 is a group item) and 
concluding with data-name-3 (if data-name-3 is an elementary item) or 
concluding with the last elementary item in data-name-3 CLE 
data-name-3 is a group item). 


When data-name-3 is not specified, data-name-2 can be either a group 
or an elementary item. When data-name-2 is a group item, data-name-l 
is treated as a group item. When data-name-2 is an elementary item, 
data-name-l is treated as an elementary item. 
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REPORT REPORT 


The REPORT(S) clause in a file description entry is used to cross- 
reference the report description entries with their associated file description 
entries. 


General Format: 
REPORT: IS 
report-name-l F report-name-2 | cee 
REPORTS ARE 


Syntax Rule: 


3 Each report-name listed in a file description entry must be _ the 
subject of a report description entry in the Report Section. 


General Rules: 


ay The REPORT clause is required in the file description entry if the 
file being described is an output report file or is to contain output 
report records. 


2% The presence of more than one report-name indicates that the file 
contains more than one report. These reports may be of different 
sizes, formats, etc. The order in which the report-names are listed is 
not significant. 
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RESET 


RESET 


The RESET clause in a report group description entry refers to the 
identifier used in the CONTROL clause of the associated RD entry that causes the 
SUM counter in the elementary item entry to be reset to zero on a control break. 


General Format: 


identifier-l 
RESET ON 


FINAL 


Syntax Rules: 


1. 


General 


ue 


Identifier-1l must be one of the identifiers described in the CONTROL 
clause in the report description entry. Identifier-1l must be a higher 
level CONTROL clause identifier than the CONTROL clause identifier 
associated with the CONTROL FOOTING report group in which the SUM and 
RESET clauses appear. 


The RESET clause may be used only in conjunction with a SUM clause at 
the elementary level. 


Rules: 


After presentation of the TYPE CONTROL FOOTING report group, the 
counters associated with the report group are reset to zero unless. an 
explicit RESET clause is given specifying reset based on a higher 
level control than the associated control for the report group. 


The RESET clause may be used for progressive totaling of identifiers 
where subtotals of identifiers are desired without automatic resetting 
upon producing the report group. 


When FINAL is specified, the SUM counter is not reset to zero until 
the final control footing is produced at TERMINATE time. 
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SOURCE, SUM, VALUE SOURCE, SUM, VALUE 


The SOURCE, SUM, and VALUE clauses in a report group description entry are 
used to define the purpose of the report item within the report group. 


General Format: 


SOURCE IS identifier-1l 


SUM identifier-2 [ ; identifier-3 ] re [ UPON data-name~1 | 


VALUE IS literal-l 


Syntax Rules: 


La Each identifier must indicate an item appearing in the File Section or 
Working-Storage Section or must be the name of a SUM counter in the 
Report Section. , 


2. SOURCE | 


Se 


4, Literal-1l may be numeric, nonnumeric, or a figurative constant. 


SOURCE Rules: 


se The SOURCE clause indicates a data item which is to be used as_ the 
source for this report item. This data item is called a SOURCE data 
item or a SOURCE item. The item is presented according to the PICTURE 
clause in the associated elementary report group description entry. 
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SOURCE, SUM, VALUE SOURCE, SUM, VALUE 


SUM Rules: 


A SUM clause may only appear in a TYPE CONTROL FOOTING report group. 


If a SUM counter is referred to by a Procedure Division statement or 
Report Section entry, a data-name must be specified with the SUM 
clause entry. The data-name then represents the summation counter 
automatically generated by the Report Writer to total the operands 
specified immediately following the SUM. If a summation counter is 
never referred to, the counter need not be named explicitly by a 
data-name entry. A SUM counter is only algebraically incremented just 
before presentation of the TYPE DETAIL report group in which the item 
being summed appears as a SOURCE item. 


Whether the SUM clause names the summation counter or not, the PICTURE 
clause must be specified for each SUM counter. Editing characters or 
editing clauses may be included in the description of a SUM _ counter. 
Editing of a SUM counter only occurs upon the presentation of that SUM 
counter. At all other times, the SUM counter is treated as a numeric 
data item. The SUM counter must be large enough to accommodate the 
summed guantity without truncation of integral digits. 


Eacn item being summed, that is, identifier-2, identifier-3, etc., 
must appear as a SOURCE item in a TYPE DETAIL report group or"be names 
of SUM counters in a TYPE CONTROL FOOTING report group at an équal or 
lower position in the control hierarchy. Although the items must be 
explicitly written in a TYPE DETAIL report group, they may actually be 
suppressed at presentation time. In this manner, direct association 
without ambiguity can be made from the current data available by a 
GENERATE statement to the data items to be presented within the Report 
Section. 


If higher level report groups are indicated in the CONTROL hierarchy, 
counter updating procedures, commonly called ‘rolling counters 
forward', take place prior to the reset operation. 


The summation of data items defined as SUM counters in TYPE CONTROL 
FOOTING report groups is accomplished explicitly or implicitly with 
the Report Writer automatically handling the updating function. If a 
SUM CONTROL of a data item is not desired for presentation at a lower 
level but is desired for presentation at a higher level, the lower 
level SUM specification may be omitted. In this case, the same results 
are obtained ‘as if the lower level SUM counter were specified. 


The UPON data-name-1 phrase is required to obtain selective summation 
for a particular data item which is named as a SOURCE item in two or 
more TYPE DETAIL report groups. Identifier-2 and identifier-3 must be 
SOURCE data items in data-name-l. Data-name-l must be the name of a 
TYPE DETAIL report group. If the UPON data-name-1l phrase is not used, 
identifier-2, identifier-3, etc., respectively, are added to the SUM 
counter at each execution of a GENERATE statement. This statement 
generates a TYPE DETAIL report group that contains the SUM operands at 
the elementary level. 


For further explanation, refer to ‘the ADD statement. 
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SOURCE, SUM, VALUE SOURCE, SUM, VALUE 


VALUE Rule: 


2 The VALUE clause causes the report data item to assume the specified 
value each time its report group is presented. 
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SYNCHRONIZED SYNCHRONIZED 


The SYNCHRONIZED clause in a data description entry is used to specify the 
alignment of an elementary item with a computer word or words. 


General Format: 


— LEFT 


SYNC RIGHT 


Syntax Rules: 


Le The SYNCHRONIZED clause can be used only with an elementary item. 


Ls SYNC is an abbreviation for SYNCHRONIZED. 


General Rules: 


5 This clause indicates that the COBOL compiler, in creating the 
internal format of this item, must place the item in the minimum 
number of computer words that can contain the item, with no part of 
any other item sharing those words. 


as The computer word, or words, containing the synchronized item may also 
have to contain some unused character positions in order to fill the 
computer word, or words. When SYNCHRONIZED LEFT is specified, these 
unused character positions (if any) will occupy the least significant 
portion of the last word of the data item. When SYNCHRONIZED RIGHT is 
specified, the unused positions (if any) will occupy the most 
Significant portion of the first word of the data item. The unused 
character positions must not be described with FILLER items. 


ce All unused character positions resulting from the SYNCHRONIZED clause 
appear in the external format. 


4. Whenever a synchronized item is referenced in the source program, the 
Original size of the item as shown in the PICTURE clause is used in 
determining any action which depends on size, such as justification or 
truncation. The REDEFINES clause, however, leads to a redefinition of 
a memory area, not just of the data items occupying the area. If 
SYNCHRONIZED ~ clauses resulted in Sere Character positions in the 


p “TE the first item in the original definition 
SYNCHRONIZED RIGHT, the area being redefined begins in the leftmost 
character of the first word allocated to the original item. If the 
last item of the original definition is SYNCHRONIZED LEFT, the area 
being redefined extends to the rightmost character of the last word 
allocated to the original item. 
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SYNCHRONIZED SYNCHRONIZED 


2/77 


When SYNCHRONIZED is specified for an item within the scope of an 
OCCURS clause, each occurrence of the item will be synchronized. 


automatically synchronized on word as ere 


If neither LEFT nor RIGHT is specified in the SYNCHRONIZED clause, the 
data items are implicitly synchronized as follows: 


ae Alphabetic and alphanumeric data items are SYNCHRONIZED LEFT. 


b. Numeric, numeric edited, and alphanumeric edited data items are 
SYNCHRONIZED RIGHT. 


Unless otherwise specified in an explicitly stated SYNCHRONIZED 
clause, noncontiguous data items (level 77) in working-storage are 
implicitly synchronized as follows: 


a. Alphabetic and alphanumeric data items are SYNCHRONIZED LEFT. 


Ds Numeric, numeric edited, and alphanumeric edited data items are 
SYNCHRONIZED RIGHT. 


If the data description of an item contains the SYNCHRONIZED clause 
and an operational sign, the sign of the item will appear in the least 
Significant character of the data item, regardless of whether the item 
is SYNCHRONIZED LEFT or SYNCHRONIZED RIGHT. 
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TYPE 


ip dg 


The TYPE clause in a report group description entry is used to specify the 


particular type of report group that is described by this entry and to 
the time at which the report group is to be generated. 


General Format: 


REPORT HEADING 
Be ea 
PAGE HEADING 


CONTROL HEADING ; identifier-n 
CH FINAL 


TYPE IS DETAIL 
7 DE 
CONTROL FOOTING identifier-n 
: a ee } FINAL } 


Se 


PAGE FOOTING 
Bee oe 
REPORT FOOTING 
Re ee 


Syntax Rule: 


Lis RH is an abbreviation for REPORT HEADING; 
j PAGE 


breviatl FLOW | G} 
abbreviatio CONTROL HEADING; 
abbreviation for DETAIL; 
abbreviation 


abbrevia Dp 
abbreviation for REPORT FOOTING. 


General Rules: 


indicate 


c The level-number 01 identifies a particular report group to be 
generated as output and the TYPE clause in this entry indicates’ the 
time for generation of this report group. If the report group is 


described as other than TYPE DETAIL, its generation is an 


automatic 


Report Writer function. If the report group is described with the TYPE 
DETAIL clause, the Procedure Division statement GENERATE data-name 


directs the Report Writer to produce the named report group. 


DD25 
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TYPE 


LO. 


a i ie 


TYPE 


The REPORT HEADING entry indicates a report group that is produced 
only once at the beginning of a report during the execution of the 
first GENERATE statement. There can be only one report group of this 
type in a report. SOURCE clauses used in TYPE RH report groups’ refer 
to the values of data items at the time the first GENERATE statement 
is executed. 


The PAGE HEADING entry indicates a report group that is produced at 
the beginning of each page according to PAGE OVERFLOW condition 
rules as specified in Rule 19. There can be only one repor group of 
this type in a report. 


The CONTROL HEADING entry indicates a report group that is produced at 
the beginning of a control group for a designated identifier or, in 
the case of FINAL, is produced once before the first control group at 
the initiation of a report during the execution of the first GENERATE 
Statement. There can be only one report group of this type for each 
identifier and for the FINAL entry specified in a report. To produce 
CONTROL HEADING report groups, a control break must occur. SOURCE 
clauses used in TYPE CONTROL HEADING FINAL report groups refer to the 
values of the items at the time the first GENERATE statement is 
executed. 


The DETAIL entry indicates a report group that is produced for each 
GENERATE statement in the Procedure Division. Fach DETAIL report group 
must have a unique data-name at the 01 level ina report. 


The CONTROL FOOTING entry indicates a report group that is produced at 
the end of a control group for a designated identifier or is produced 
once at the termination of a report ending a FINAL control group. 
There can be only one report group of this type for each identifier 
and for the FINAL entry specified in a report. To produce CONTROL 
FOOTING report groups, a control break must occur. SOURCE clauses used 
in TYPE CONTROL FOOTING FINAL report groups refer to the values of the 
items at the time the TERMINATE statement is executed. 


The PAGE FOOTING entry indicates a report group tha is produced at 


the bottom of each page according to PAGE and OVERFLOW condition rules 


as specified in Rule 19. There can be only one report group of this 
type in a report. | 


The REPORT FOOTING entry indicates a report group that is produced 
only once at the termination of a report. There can be only one report 
group of this type in a report. SOURCE clauses used in TYPE REPORT 
FOOTING report groups refer to the values of the items at the time the 
TERMINATE statement is executed. 


Identifiers, as well as FINAL, must be one of the identifiers 
described in the CONTROL(S) clause in the report description entry. 
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T¥PE 


Liw 


i 


14. 


Loi 


LG 


LYPE 


A FINAL type control break may be designated only once for CONTROL 
HEADING or CONTROL FOOTING entries within a report. 


Nothing precedes a REPORT HEADING entry and nothing follows a REPORT 
FOOTING entry within a report. 


The HEADING or FOOTING report groups occur in the following Report 
Writer sequence, if all exist for a given report: 


REPORT HEADING SSR Cs ee ee page) 


CONTROL HEADING 
DETAIL 
CONTROL FOOTING 


PAGE FOOTING © jE NG: 
REPORT FOOTING poe occurrence etre -last page) 


CONTROL HEADING report groups are presented in the following 
hierarchical arrangement: 


Final Control Heading 
Major Control Heading 


Minor Control Heading 


CONTROL FOOTING report groups are presented in the following 
hierarchical arrangement: 


Minor Control Footing 


Major Control Footing 
Final Control Footing 


CONTROL HEADING report groups appear with the current values of any 
indicated SOURCE data items before the DETAIL report groups of the 
CONTROL group are produced. CONTROL FOOTING report groups appear with 
the previous values of any indicated CONTROL SOURCE data items just 
after the DETAIL report groups of that CONTROL group have been 
produced. The USE procedures specified for a CONTROL FOOTING report 
group that refer to: a) SOURCE data items specified in the CONTROL(S) 
clause affect the previous value of the items; b) SOURCE data items 
not specified in the CONTROL(S) clause affect the current value of the 
items. These report groups appear whenever a control break is noted. 
LINE NUMBER determines the absolute or relative position of the 
CONTROL report groups exclusive of the other HEADING and FOOTING 
report groups. 
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USAGE USAGE 


The USAGE clause in a data description entry is used to indicate the 
dominant use of a data item or the manner in which a data item is represented in 
memory. 


General Format: 


COMPUTATIONAL 


i USAGE IS a 


COMP 
DISPLAY 
‘DISPLAY: 


aa 


Syntax Rules: 


i Loe Gone is an Lack a for COMPUTATIONAL. 


Le The PICTURE character-string for a COMPUTATIONAL |. SOMPUTATION: ca 
data item must only contain '9's, the operational sign 'S', “a the 
assumed decimal point 'V'. 


4. The only usage that can be specified for a report group description 
entry is USAGE DISPLAY. 


General Rules: 


ae If the usage of a data item is not specified, it 1s assumed to be 
USAGE DISPLAY. 


Ax The USAGE clause may be specified at any level of a hierarchical 
structure. If this clause is specified at a group level, it applies 
to all of the subordinate elementary items in the group and ~0no 
subordinate item may specify a different usage. 


oe The external format of a data item (as it is stored on a peripheral 


device) and its internal format (as it is stored in memory) are always 
the same. 
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USAGE 


When the USAGE clause is specified, the internal format invoked for a 
computational item must not conflict with the data characteristics 
specified for the item in the PICTURE clause. The USAGE clause 


permits a choice of the following internal formats for computational 
data items: 


ais COMPUTATIONAL represents decimal-precision binary. The data item 
is stored as a synchronized signed floating-point binary number. 
The PICTURE clause description must conform to the rules for 
numeric items. If the PICTURE clause specifies eight or less 
digits, the item is stored as a Single-precision floating-point 
number; otherwise, it is stored as a double-precision 
floating-point number. To preserve fractional accuracy, each 
item is treated with a span multiplier as described in Section II 
of the COBOL User's Guide. 


When the USAGE DISPLAY clause is specified, the data items are stored 
as standard data format characters. The USAGE clause permits a choice 
of the following internal formats for display data items: 


ae DISPLAY represents character-oriented data. The data item is 
stored in the native (Series 60/6000) six-bit character set. The 
PICTURE clause description may imply alphabetic, numeric, 
alphanumeric, or numeric edited data items. 
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USAGE 


An elementary item described with the USAGE INDEX clause is called an 
index data item; the external and internal format of an index data 
item is single-precision binary integer. The elementary item 
described with the USAGE INDEX clause contains a value that must 
correspond to an occurrence number of a table element and must not be 
a conditional variable. It is assigned a single word of memory. 


An index data item can be referenced directly only in a SEARCH 
statement, a SET statement, or in a relation condition. An index data 
item can be part of a group that is referenced in a MOVE statement or 
an input-output statement, in which case no conversion takes place. 


The BLANK WHEN ZERO, JUSTIFIED, PICTURE, SYNCHRONIZED, and VALUE 
clauses must not be used to describe group items or elementary items 
described with the USAGE INDEX clause. If a group item is described 
with the USAGE INDEX clause, the elementary items in the group are all 
index data items. The group item itself is not an index data item and 
must not be used in SEARCH statements, SET statements, or in a 
relation condition. 


Although the USAGE clause does not itself limit the use of the data 
item being described, some statements in the Procedure Division may 
restrict the USAGE clauses that may be applied to their operands. 
However, the USAGE clause may affect the decimal point or internal 
representation of the data item being described. 
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VALUE VALUE 


The VALUE clause in a data description entry is used to define the initial 
value of working-storage data items, or the values associated with a 
condition-name. 


Format 1: 


VALUE IS literal-1l 


Format 2: 


VALUE IS 
88 condition-name-1l literal-1 
VALUES ARE 
THRU THRU 
literal-2 , Literal-3 literal-4 nga 
THROUGH THROUGH 


NOTE: Level-number 88 and condition=-name-l are not part of the VALUE 
clause; they are shown only for clarity. 


Syntax Rules: 


be The words THRU and THROUGH are equivalent. 


Zs A signed numeric literal must be associated with a signed numeric 
PICTURE character-string. 


General Rules: 


i The VALUE clause cannot be stated for any item whose size, explicitly 
or implicitly, is variable. 


2x The VALUE clause must not conflict with other clauses in the data 
description of the item or in the data description within the 
hierarchy of the item. If the category of an elementary item is 
specified as numeric or alphabetic, it does not contradict the 
alphanumeric category of group items. The following rules apply: 


a. If the category of the item is numeric, all literals in the VALUE 
clause must be numeric literals. If the literal defines the value 
of a working-storage data item, the literal is aligned according 
to the alignment rules except that the literal must not have a 
value that would require truncation of nonzero digits. A negative 
numeric literal must be associated with a signed numeric (S92) 
PICTURE character-string. 
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VALUE VALUE 


b, If the category of the item is alphabetic, alphanumeric, 
alphanumeric edited, or numeric edited, all literals in the VALUE 
clause must be nonnumeric literals. The literal is aligned in the 
data item according to the alignment rules (refer to the 
JUSTIFIED clause), except that the number of characters in the 
literal must not exceed the size of the item. 


oan All numeric literals in a VALUE clause of an item must have a 
value which is within the range of values indicated by the 
PICTURE clause; for example, for PICTURE PPP99, the literal must 
be within the range .00000 through .00099. 


ds The function of the BLANK WHEN ZERO clause or any editing 
characters in a PICTURE clause has no effect on the 
initialization of an item. The VALUE clause is the only clause 
that may (depending on its usage) provide initialization. Editing 
characters are included, however, in determining the size of the 
item. Therefore, the VALUE for an edited item must be presented 
in an edited form. 


3% A figurative constant may be substituted in both Format 1 and Format 2 
wherever a literal is specified. 


4, The VALUE clause cannot be used for items whose USAGE IS INDEX. 


Condition=-Name Rules: 


c™ 


dee Each condition-name requires a separate entry with level 88. This 
entry contains the name of the condition and the value, values, or 
range of values associated with the condition-name. The condition-name 
entries for a particular conditional variable must follow the entry 
describing the item with which the condition-name is associated. A 
condition-name may be associated with any elementary or group item, 
except the following: 


a. Another condition-name. 
b. A level 66 item. 


om A group containing items requiring separate handling due _ to 
synchronization, usage, etc. 


Zs In a condition-name entry, the VALUE clause is required. The VALUE 
clause and the condition-name itself are the only two clauses 
permitted in the entry. The characteristics of a condition-name are 
implicitly those of its conditional variable. 


3% Format 2 can be used only in connection with condition-names. Whenever 
the THRU phrase is used, literal-l must be less than literal-2, 
Ld. less than literal-4, Ne Oo: ae 
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VALUE 


An example of condition-name entries follows: 
03 GRADE PIC 9S (2). 


88 PRIMARY VALUE IS l. 
88 SECOND VALUE IS 2. 


88 GRADE-SCHOOL VALUES ARE 1 THRU 6. 

88 JUNIOR-HIGH VALUES ARE 7 THRU 9. 

88 HIGH-SCHOOL VALUES ARE 10 THRU 12. 

88 GRADE-ERROR VALUES ARE 0, 13 THRU 99. 


Data Description Entries Other Than Condition-Names: 


de 


Rules governing the use of the VALUE clause differ with the respective 
sections of the Data Division: 


a In the File Section, the VALUE clause may be used only in 
condition-name entries. 


Ds In the Working-Storage Section, the VALUE clause may be used in 
condition-name entries, and it may also be used to specify the 
initial value of any other data item; in which case, the clause 
causes the item to assume the specified value at the start of 
object program execution. If the VALUE clause is not used in an 
item's description, the initial value is undefined. 


Cs In the Report Section, the VALUE clause causes the report data 
item to assume the specified value each time its report group is 
presented. This clause may be used only at the elementary level 
in the Report Section. 


The VALUE clause must not be statzed in a data description entry that 
contains an OCCURS clause, or in an entry that is subordinate to an 
entry containing an OCCURS clause. This rule does not apply to 
condition=-name entries. 


The VALUE clause must not be stated in a data description entry that 
contains a REDEFINES clause, or in an entry that is subordinate to an 
entry containing a REDEFINES clause. This rule does not apply to 
condition-name entries. 


If the VALUE clause is used in an entry at the group level, the 
literal must be a figurative constant or a nonnumeric literal, and the 
group area is initialized without consideration for the individual 
elementary or group items contained within this group. The VALUE 
clause cannot be stated at the subordinate levels within this group. 


The VALUE clause must not be written for a group containing items with 
descriptions including the JUSTIFIED, SYNCHRONIZED, or USAGE clauses 
(other than USAGE IS DISPLAY). 


Within a given record description, the VALUE clause must not be stated 


in a data description entry that is subsequent to a data description 
entry in which an OCCURS clause with a DEPENDING ON phrase appears. 
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VALUE OF VALUE OF 


The VALUE OF clause in a file description entry is used to particularize 
the description of an item in the label records associated with a file. 


General Format: 


| literal-1 
VALUE OF data-name-1l Is 


data-name-2 A 


literal-2 
, data-name=3 IS eee 


data-name-44 


Syntax Rule: 


Ls Data-name-l, data-name-2, data-name-3, etc., should be qualified when 
necessary, but cannot be subscripted or indexed, nor can they be items 
described with the USAGE IS INDEX clause. 


f » General Rules: 


| i ee Each data=-name-1, data=-name-3, etc., must be in one of the label 
| records; A data-name-2, M £=data-name-4, etc., must be in the 
Working-Storage Section. For an: 


a. Input File: The appropriate label routine checks to see if the 
value of data-name-1 is equal to the value of literal-l, or of A 
data=-name-2, whichever has been specified. 


by Output File: At the appropriate time, the value of data-name-1l is 
made equal to the value of lJliteral-l, or of A data-name-2, 
whichever has been specified. 


ar A figurative constant may be substituted wherever a literal is 
specified. 


oa If label records are standard (see LABEL RECORDS clause), then 
data-name-l, data-name-3, etc., must be one of the following: 


IDENTIFICATION or ID 
RETENTION-PERIOD 


ae When ID or IDENTIFICATION is used, a nonnumeric literal or a 
data-name that has a class of alphanumeric and size of no more 
than 12 characters must be associated with the fixed data-name. 


jem When RETENTION-PERIOD is used, a numeric literal not exceeding 


999 must be specified. The value 999 signifies permanent 
f™» retention. 
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SECTION VII 


PROCEDURE DIVISION 


DESCRIPTION OF THE PROCEDURE DIVISION 


The Procedure Division contains the procedures required to solve a given 
problem. Procedures are written as sentences, combined to form paragraphs, which 
in turn may be combined to form sections. COBOL procedures are expressed in a 
manner similar to (but not identical with) ordinary English. The basic unit of 
procedure formation is a sentence or a group of successive sentences. 


DECLARATIVES 


Declarative sections must be grouped at the beginning of the Procedure 
Division preceded by the keyword DECLARATIVES and followed by the keywords END 
DECLARATIVES. The USE statement is called a declarative statement. 


PROCEDURES 


A procedure is composed of a paragraph, or group of successive paragraphs; 
or a section, or group of successive sections within the Procedure Division. If 
one paragraph is in a section, then all paragraphs must be in sections. A 
procedure- name is a word used to refer to a paragraph or section in the source 
program in which it occurs. It consists of a paragraph-name (which may be 
qualified) or a section-name. 


The end of the Procedure Division and the physical end of the program is 
that physical position in a COBOL source program after which no further 
procedures appear. 


A section consists of a section header followed by = one, or more 
successive paragraphs. A section header consists of a section-name followed by 
the required word SECTION, a priority-number if desired, and a period. A section 
ends immediately before the next section; at the end of the Procedure Division; 
or, in the declarative portion of the Procedure Division, at the keywords END 
DECLARATIVES. 


A paragraph consists of a paragraph=-name followed by J, one, or more 
succesSive sentences. A paragraph ends immediately before the next 
paragraph-name or section-name; at the end of the Procedure Division; or, in the 
declaratives portion of the Procedure Division, at the keywords END 
DECLARATIVES. 
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A sentence consists of one or more statements and is terminated by a period 
followed by a space. 


A statement is a syntactically valid combination of words and symbols 
beginning with a COBOL verb. 


The term identifier is defined as the word or words necessary to make 
unigue reference to a data item. 


Execution begins with the first statement of the Procedure Division, 
excluding declaratives, or at an entry point. Statements are then executed in 
the order in which they are presented for compilation, except where the rules in 
this section indicate a different order. 


STRUCTURE OF THE PROCEDURE DIVISION 


Procedure Division Header 


The Procedure Division is identified by and must begin with the following 
header: 


PROCEDURE DIVISION. 


Procedure Division Body 


The body of the Procedure Division must conform to one of the following 
formats: 


Format 1: 
DECLARATIVES. 
{ section-name SECTION. declarative sentence 
{ paragraph-name. {sentence } as } Eee } es 
END DECLARATIVES. 


{ section-nane SECTION | priority-number| ‘ 


{ paragraph-name. { sentence } ees } oe } aie 
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Format 2: 


{paragraph-name. { sentence } ‘few } oes 


Procedure Division Segments 
TTC CC TE TCT CCIE 


Priority-numbers may be used on section headers to provide for segmentation 
of an object program. They identify the fixed and independent segments of the 
program. 


General Format: 


section=-name SECTION [ priority-number ] ‘ 


Syntax Rules: 


iy The priority-number must be an integer ranging in value from 0 through 
99. 
2. If the priority-number is omitted from the section header, the 


priority is assumed to be 0. 


General Rules: 


Ls All sections which have the same priority-number constitute a program 
segment with that priority. 


2% segments with a priority-number of 0 through 49 belong to the fixed 
portion of the object program. 


a segments with a priority-number of 50 through 99 are independent 
segments. 


4. Sections in the declarative portion must not contain priority-numbers 
in their section headings. These sections are defined to have a 
Priority oF 0, 


STATEMENTS AND SENTENCES 


A statement is a syntactically valid combination of words and symbols 
beginning with a COBOL verb. The three types of statements are conditional 
statements, compiler-directing statements, and imperative-statements. 


A sentence consists of a sequence of one or more statements, the last of 
which is terminated by a period. The three types of sentences are conditional 
sentences, compiler-directing sentences, and imperative sentences. 


Ts DD25 


a ene os 


Conditional Statements and Sentences 


ERROR phrase; | CEPT MESSAGE 


A conditional sentence is a conditional statement terminated by a period 
followed by a space. The conditional statement may be optionally preceded by an 
imperative-statement. 


Compiler-Directing Statements and Sentences 


A compiler-directing statement consists of a compiler-directing verb and 
its operands. The compiler-directing verbs are COPY, ENTER, and USE. A 
compiler-directing statement causes the compiler to take a specific action 
during compilation. 


A compiler-directing statement terminated with a period is a 
compiler-directing sentence. For example: 


USE AFTER ERROR PROCEDURE ON MASTER-FILE. 
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Imperative=-Statements and Sentences 


An imperative-statement indicates a specific action to be taken by the 
object program. The imperative-statement is any statement that is neither a 
conditional statement nor a compiler-directing statement. An 
imperative-statement may consist of a sequence of imperative-statements, each 
possibly separated from the next by a separator. The imperative verbs are: 


ACCEPT3 EXAMINE PERFORM 
ADD! EXIT RELEASE 
GENERATE SEEK 
GO TO SET 
INITIATE SORT 
MERGE STOP 
MOVE SUBTRACT | 
DIVIDE! MULTIPLY! TERMINATE 
OPEN WRITE2 


Whenever the term 'imperative-statement' appears in the general format of 
statements described in this section, the 'imperative-statement' refers to that 
sequence of consecutive imperative=statements ended by a period, or an ELSE 
associated with a previous IF verb, or a WHEN associated with a previous SEARCH 
verb. 


An imperative-statement terminated by a period is an imperative sentence. 
For example: 


MOVE A TO B. 
MOVE A TO B; ADD C TO D. 


An imperative sentence may contain either a GO TO statement or a STOP RUN 
statement, which (if present) must be the last statement in the sentence. For 
example: 


MOVE. A. TO B; ADD C TO D GO TO START, 


SENTENCE EXECUTION 


In the following discussion, ‘execution of a sentence or a statement within 
a sentence’ means ‘execution of object coding compiled from a sentence, or from 


a statement within a sentence which has been written in COBOL'. 'Transfer of 
control' means ‘transfer of control in the object program by transferring 
(GOing) from one place to another place out of the written sequence’. ‘Passing 


of control' means ‘passing of control in the object program by passing from one 
place to the next place in the written sequence' 


Whenever a GO TO statement is encountered during the execution of a 
sentence or statement, there is an unconditional transfer of control to _ the 
first procedural sentence of the paragraph or section referenced by the GO TO 
statement. 


Without the optional phrase SIZE ERROR. 
gWithout the Shee eee INVALID KEY. 
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Conditional Sentence Execution 


The general format of the conditional sentence is: 


IF condition 


statement-1 ELSE statement-2 
NEXT SENTENCE 


[ELSE NEXT SENTENCE ] 


In the conditional sentence, the condition is an expression which is true 
or false. If the condition is true, then statement-l is executed and control 
transferred to the next sentence. ce. Lf the condition is false, statement-2 is 
executed and control is passed to the next sentence. 


example, the Sone Et onal 


d. For 
sentence could have the form: | 


IF condition-1 imperative-statement-1 IF condition-2 
statement=3 ELSE statement- -4 ELSE statement-2 


If condition-l is true, imperative-statement-l is executed; then, if 
condition-2 is true, statement-3 is executed and control is transferred to the 
next sentence. If condition-2 is false, then statement-4 is executed and control 
is transferred to the next sentence. If condition-l is false, statement-2 is 
executed and control is passed to the next sentence. 


Statement-3 can in turn be either imperative or conditional and, if 
conditional, can in turn contain conditional statements in arbitrary depth. In 
an identacal manner, statement-4 can be either imperative or conditional, as can 
statement-2. 


The execution of the phrase 'ELSE NEXT SENTENCE' causes a transfer of 
control to the next sentence as written, except when it appears in the last 
sentence of a procedure being performed, in which case control is passed to the 
return mechanism. 


Compiler-Directing Sentence Execution 


Compiler-directing sentences direct a COBOL compiler to take action at 
compilation time, rather than specifying action to be taken by the object 
program. 


Imperative Sentence Execution 


An imperative sentence is executed in its entirety and control is passed to 
the next procedural sentence. 
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Control Relationship Between Procedures 


In COBOL, imperative and conditional sentences describe the procedure that 
is to be accomplished. The sentences are written successively, according to the 
rules of the reference format, to establish the sequence in which the object 
program is to execute the procedure. 


Execution begins with the first statement after END DECLARATIVES if a 
declarative section is present. Statements are then executed in the order in 
which they are presented for compilation, except where the rules indicate some 
other order. 


In executing procedures, control is transferred only to the beginning of a 
paragraph or section. Control is passed to a sentence within a paragraph only 
from the sentence written immediately preceding it. If a procedure is named, 
control can be passed to it from the sentence immediately preceding it, or can 
be transferred to it from any sentence which contains a GO TO or PERFORM 
Followed by the name of the procedure to which control is to be transferred. 


CONDITIONS 


A condition enables the object program to select between alternate paths of 
control, depending upon the truth value of a test. A condition is one of the 
following: 


& Relation condition 

® Sign ‘condition 

Class condition 

@ Condition-name condition 

% Switch-status condition 

& NOT condition 
AND 

8 condition condition 
OR 


Any condition may be enclosed in parentheses. The truth value of a 
parenthesized condition is determined from the evaluation of the truth values of 
its constituents. A parenthesized condition is a condition in the sense of the 
last two items of the preceding list. 


Simple Conditions 


There are five types of simple condition tests. These tests and _ the 
acceptable formats for stating them are described below. (The word IF is not 
part of the condition, but is shown in the formats to improve readability.) 
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RELATION CONDITION 


A relation condition involves a comparison of two operands, each of which 
may be the data item referenced by an identifier, a literal, or the value 
resulting from an arithmetic-expression. The comparison of two literals is not 
permitted. Comparison of numeric operands is permitted regardless of their 
individual usages. All other comparisons require that the USAGE of the operands 
being compared is the same. If either of the operands is a group item, the 
nonnumeric comparison rules apply. The format for a relation condition is: 


[Not] 7 
ENory =< 
[NOT] = 
identifier-1l identifier-2 
PE: literal-1l [NOT] GREATER THAN literal-2 
arithmetic- [NOT] LESS THAN arithmetic- 
expression-l CNOT J EQUAL TO expression-2 


In the preceding format, the first operand (identifier-l, literal-l, 
arithmetic-expression-1l) is called the subject. The second operand 
(identifier-2, literal-2, arithmetic-expression-2) is called the object. The 
subject and the object cannot both be literals. 


as Comparison of Numeric Operands 


For numeric operands, a comparison results in the determination that 
the algebraic value of one of the operands is less than, equal to, or 
greater than the other. The operand length, in terms of the number of 
digits, is not significant. Zero is considered to represent a unique 
value regardless of the length, sign, or implied decimal point 
Location, 


Comparison of these operands is permitted regardless of the manner in 
which their usage is described. Unsigned numeric operands are 
considered to be positive for comparison purposes. 


De Comparison of Nonnumeric Operands 


For two nonnumeric operands, or one numeric (excluding the operational 
sign) and one nonnumeric operand, a comparison results in the 
determination that one of the operands is less than, equal 
greater than the haces vee Ret Saad to an a. sh niin 


set. 


Numeric ‘and nonnumeric operands may 
usage is the same, explicitly or 


their 


collating sequences are presented in the 


“COBOL User's Guide. 
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If the operands are of equal size, characters in corresponding 
character positions are compared starting from the high-order end and 
continuing until either a pair of unequal characters is encountered or 
the low-order end of the item is reached, whichever comes first. The 
items are determined to be equal when the low-order end is reached. 


The first encountered pair of unequal characters is compared for 
relative location in the collating sequence. The operand which 
contains that character which is positioned higher in the collating 
sequence is determined to be the greater operand. 


If the operands are of unequal size, comparison proceeds as though the 


shorter operand were extended on the right by sufficient space 12 
Pome : . Le 


om Comparisons Involving Index-Names and/or Index Data Items 
Full relation tests may be made between: 


(1) Two index-names. The result is the same as if the corresponding 
occurrence numbers are compared. 


(2) An index-name and a data item (other than an index data item) or 
a literal. The occurrence number that corresponds to the value of 
the index-name is compared to the data item or literal. 


(3) An index data item and an index-name or another index data item. 
The actual values are compared without conversion. 


The result of the comparison of an index data item with any data item 
or literal not specified in 1, 2, or 3 above is undefined. 


SIGN CONDITION 


The sign condition determines whether or not the algebraic value of an 
elementary numeric data item or an arithmetic-expression is less than, equal to, 
or greater than zero. The general format for a sign condition is: 


identifier . POSITIVE 
IF IS [NOT] jNEGATIVE 
arithmetic-expression ZERO 


An operand is POSITIVE only if its value is greater than zero, NEGATIVE if 
its value is less than zero, and ZERO if its value is equal to zero. An operand 
whose value is zero is NOT POSITIVE and an operand whose value is zero is NOT 
NEGATIVE; the value zero is considered neither positive nor negative. 


7=9 DD25 


CLASS CONDITION 
The class of any item can be tested as follows: 


NUMERIC 
iF identifier IS NOT 


ALPHABETIC 


The usage of identifier must be explicitly or implicitly DISPLAY. The 
ALPHABETIC test cannot be used with an item whose data description describes the 
item as numeric. The item being tested is determined to be alphabetic only if 
the contents consist of any combination of the alphabetic characters 'A' through 
'Z' and the space. 


The NUMERIC test cannot be used with an item whose data description 
describes the item as alphabetic or as a group item composed of elementary items 
whose data description indicates the presence of operational sign(s). If the 
data description of the item being tested does not indicate the presence of an 
operational sign, the item being tested is determined to be numeric only if the 
contents are numeric and an operational sign is not present. 


CONDITION-NAME CONDITION 


In a condition-name condition, a conditional variable is tested to 
determine whether or not its value is equal to one of the values associated with 
a condition-name in the Data Division. The general format for the condition-name 
condition is: 


pay [Nor] condition-name 


If the condition-name is associated with a range or ranges of values (that 
is, the VALUES ARE clause contains at least one 'literal THRU literal' phrase), 
then the conditional variable is tested to determine whether or not its value 
falls in this range, including the end values. 


The rules for comparing a conditional variable with a condition-name value 
are the same as those specified for relation conditions. 


The result of the test is true if one of the values corresponding to the 
condition-name equals the value of its associated conditional variable. 


SWITCH-STATUS CONDITION 


In the SPECIAL-NAMES paragraph of the Environment Division, a 
condition-name may be associated with the ON or OFF status of a software switch. 
The switch is ON when its value is one, OFF when its value is zero. The status 
of such a switch may then be tested with a statement using the following format: 


LF [Nor ] condition=-name 
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The results of this test are determined using the following table: 


pe 
Switch 
Status LE condition=-name IF NOT condition-name 


OFF False True 
ON True False 
OFF True False 
ON False True 


Simple conditions can be combined with logical operators according to 
specified rules to form compound conditions. The logical operators AND, OR, and 
NOT must be preceded by a space and followed by a space. The meaning of the 
logical operators follows: 


SPECIAL-NAMES 
Phrase 


««eON STATUS 


IS condition= 
name 


oe eOFP STATUS 


IS condition- 
name 


Compound Conditions 


OR Logical Inclusive Or 
AND Logical Conjunction 


NOT Logical Negation 
The general format of a compound condition is: 


AND AND 
EE condition-1 condition-2 condition-n |]... 
OR OR 


The word IF is shown to improve readability. Each condition can be either a 
relation condition, a sign condition, a class condition, a condition-name 
condition, or a switch=-status condition. 
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Letting A and B represent simple conditions, the following table defines 
the interpretation of AND, OR, and NOT in compound conditions: 


NOT A A AND B A OR B 


True 


Thus, if A is true and B is false, the expression A AND B is false, while 
the expression A OR B is true. 


The following table indicates the methods in which conditions and _ logical 
operators may be combined: 


FIRST SYMBOL SECOND SYMBOL 


Condition 


'p' indicates that the pair is permissible and '-' indicates that the pair 
is not permissible. Thus, the pair 'OR NOT' is permissible, while the pair 'NOT 
OR' is not permissible. 


The rules for determining the logical value (true or false) of a compound 
condition are as follows: 


1% If AND is the only logical connective used, then the compound 
condition is true if and only if each of the simple conditions is 
crue. 

as If OR is the only logical connective used, then the compound condition 


is true if and only if one or more of the simple conditions is true. 


1 
Permissible only if the condition itself does not contain a NOT. 
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2% If both AND and OR appear, then there are two cases. to consider, 
depending on whether or not parentheses are used, 


a. Parentheses can be used to indicate grouping. They must always be 
paired, as in algebra, and the expressions within the parentheses 
will be evaluated first. The precedence of nested parenthetical 
expressions is the same as in algebra. That is, the innermost 
parenthetical expressions are evaluated first. 


b. If parentheses are not used, then the conditions are grouped 
first according to AND, proceeding from left to right, and _ then 
by OR, proceeding from left to right. That is, the logical 
operator AND has precedence over the logical operator OR in the 
same sense that the arithmetic operator * (multiplication) has 
precedence over the arithmetic operator + (addition). 


4, When NOT precedes a parenthesized condition, it reverses the logical 
value of the parenthesized condition; that is, NOT (condition) is true 
when (condition) is false. For example, NOT (A AND B) is true if 
either A or B is false. Thus, NOT (A AND B) is equivalent to NOT A OR 
NOT B, and is true when A and B are not both true (i.e., when either 
is false or both are false). Similarly, NOT (A OR B) is equivalent to 
NOT A AND NOT B, and is true only when A and B are both false. 


Abbreviated Combined Relation Conditions 


Only conditions involving full relation tests have three terms (a subject, 
a relation, and an object). To simplify writing lengthy expressions, COBOL 
allows the omission of some of these terms in certain forms of compound 
conditions. 


When relation conditions are written in a consecutive sequence, any 
relation condition except the first may be abbreviated by: 


1% Omitting the subject of the relation condition, or 
2% Omitting the subject and relational operator of the relation 
condition. 


Within a sequence of relation conditions, both forms of abbreviations may 
be used. The effect of using them is as if the omitted subject were replaced by 
the last preceding stated subject or the omitted relational operator were 
replaced by the last preceding stated relational operator. 


Ambiguity may result from using 'NOT' in conjunction with abbreviations. In 
this event, NOT is interpreted as a logical operator rather than as part of a 
relational operation. Thus: 


a> & AND NOT >. OR -d 
1s equivalent to: 


a>b AND NOT a>c OR aod or 


a >b AND. (NOT a> c) -OR8. a od 
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Use of the NOT Operator 


Simple IF sentences may be preferred when making a conditional test to 
avoid the possibility of misusing the NOT logical operator and to interpret the 
source language more clearly. When the NOT logical operator is used in IF 
sentences, it must precede a left parenthesis or a simple condition which does 
net contain a.’ NOT". 


Evaluation Rules for Conditions 


The evaluation rules for conditions are similar to those given for 
arithmetic-expressions except that the following hierarchy applies: 


Arithmetic-expression 

F All relational operators 
® NOT 

= AND 

& OR 


ARITHMETIC-EXPRESSIONS 


An arithmetic-expression can be an identifier described as a numeric 
elementary item; a numeric literal; such identifiers and literals separated by 
arithmetic operators; two arithmetic-expressions separated by an arithmetic 


operator; ox an arithmetic-expression enclosed by parentheses. Any 
arithmetic-expression may be preceded by a unary operator. The permissible 
combinations of variables, numeric literals, arithmetic operators, and 


parentheses are presented in the table contained in the Formation and Evaluation 
Rules paragraph below. 


Identifiers and literals appearing in an arithmetic-expression must 
represent either numeric elementary items or numeric literals on which 
arithmetic may be performed. 


Arithmetic Operators 


Five binary arithmetic operators and two unary arithmetic operators may be 
used in arithmetic-expressions. They are represented by specific characters 
which must be preceded by a space and followed by a space. 


Binary 
Arithmetic Operator Meaning 
+ Addition 
- Subtraction 
* Multiplication 
7 Division 
*% Exponentiation 
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oO 


Unary 
Arithmetic Operator Meaning 


iplication by the 
numeric literal -1l 


Formation and Evaluation Rules for Arithmetic-Expressions 
POF AP LENMEetTIC~Expressions 


The formation and evaluation rules for arithmetic-expressions are presented 


below. 


am 


Parentheses may be used in arithmetic-expressions to specify the order 
in which elements are to be evaluated. When parentheses are used, a 
Space is allowed between the left parenthesis and the leftmost element 
and between the right parenthesis and the rightmost element, if 
desired. Expressions within parentheses are evaluated first and, 


within nested parentheses, evaluation proceeds from the least 
inclusive set to the most inclusive set. When parentheses are not 
used, or parenthesized expressions are at the same level of 


inclusiveness, the following hierarchical order of execution is 
implied: 


e Unary | Minus 

% Exponentiation 

® Multiplication and Division 
& Addition and Subtraction 


Parentheses are employed either to eliminate ambiguities in logic 
where consecutive operations of the same hierarchical level appear, or 
to modify the normal hierarchical sequence of execution in expressions 
where some deviation from the normal precedence is required. 


When the sequence of execution is not specified by parentheses, the 
order of execution of consecutive operations of the same hierarchical 
level is from left to right. Thus, expressions ordinarily considered 
to be ambiguous, such as A/B*C and A/B/C, are permitted in COBOL. They 
are interpreted as if they were written (A/B)*C and (A/B)/7¢C, 
respectively. 


Cc 
An arithmetic-expression containing a double exponentiation (2 ) 
cannot be written in the form (A**B**C); it must be written either 
(A**B) **C or A**(B**C), whichever is intended, 


The following usages of exponentiation are not allowed and may produce 
unpredictable results: 


e The value zero exponentiated by the value zero. 
s The value zero exponentiated by a negative value. 
% A negative value exponentiated by a nonintegral value. 
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36 The methods in which operators, variables, and parentheses may be 
combined in an arithmetic-expression are summarized in the following 
table. 


SECOND SYMBOL 


a The letter 'P' inal cates a permissible pair of symbols. 
g The character '-' represents an invalid pair. 
a 'VARIABLE' represents an identifier or literal. 
4, An arithmetic-expression may begin only with the symbol '(', | ‘! 


: ae 
or a variable, and may end only with a ')' or a variable. There must 
be a one-to-one correspondence between left and right parentheses of 
an arithmetic-expression so that each left parenthesis is to the left 
of its corresponding right parenthesis. 


34 Arithmetic-expressions allow the user to combine arithmetic operations 
without the restrictions on composite of operands and/or receiving 
data items. (See Arithmetic Statements.) 


COMMON OPTIONS IN STATEMENT FORMATS 


In the statement descriptions of the Procedure Division, several options 
appear frequently: the ROUNDED option, the SIZE ERROR option, and the 
CORRESPONDING option. 


In the discussion below, a resultant-identifier is that identifier 
associated with a result of an arithmetic operation. 


ROUNDED Option 


If, after decimal point alignment, the number of places in the fraction of 
the result of an arithmetic operation is greater than the number of places 
provided for the fraction of the resultant-identifier, truncation is relative to 
the size provided for the resultant-identifier. When rounding is requested, the 
absolute value of the resultant-identifier is increased by one (1) whenever the 
most significant digit of the excess is greater than or equal to five iy ae 
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The following shows the effect of specifying the ROUNDED option. 


Result of PICTURE of Values Stored 
Arithmetic Resultant- in Resultant- 
Operation Identifier Identifier 
3.14 S9V9 = eh 
345 S9V9 S22 
-3.14 S9V9 -3.1 
ca oe Bs S9V9 Onn 


When the low-order integer positions in a resultant-identifier are repre- 
sented by the character 'P' in the PICTURE for that resultant-identifier, 
rounding or truncation occurs relative to the rightmost integer position for 
which storage is allocated. 


SIZE ERROR Option 


If, after decimal point alignment, the value of the result exceeds the 
largest value that can be contained in the associated resultant-identifier, a 
Size error condition exists. Division by zero always causes a size error 
condition. The size error condition applies only to the final results of an 
arithmetic operation and not to intermediate results; except in the MULTIPLY and 
DIVIDE statements, in which case the size error condition applies to the 
intermediate results as well. If the ROUNDED option is specified, rounding takes 
place before checking for size error. When such a size error condition occurs, 
the subsequent action depends on whether or not the SIZE ERROR option is 
specified. 


Ae If the SIZE ERROR option is not specified and a size error condition 
occurs, the value of those resultant-identifier(s) affected is 
undefined. Values of resultant-identifier(s) for which no size error 
condition occurs are unaffected by size errors that occur for other 
resultant-identifier(s) during execution of this operation. 


Za If the SIZE ERROR option is specified and a size error condition 
occurs, then the prior values of resultant-identifier(s) affected by 
the size errors are not altered. Values of resultant-identifier(s) for 
which no size error condition occurs are unaffected by size errors 
that occur for other resultant-identifier(s) during execution of this 
operation. After completion of the execution of this operation, the 
imperative-statement in the SIZE ERROR option is executed. 


For ADD and SUBTRACT CORRESPONDING, if any of the individual 
operations produce a size error condition, the imperative-statement in 
the SIZE ERROR phrase is not executed until all of the individual 
additions or subtractions are completed. 


CORRESPONDING Option 


For the purpose of this discussion, dl and d2 represent identifiers that 
refer to group items. A pair of data items, one from dl and one from d2, 
correspond if the following conditions exist: 


as A data item in dl and a data item in d2 have the same name and the 
same qualification up to, but not including, dl and d2. 
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At least one of the data items is an elementary data item in the case 
of a MOVE statement with the CORRESPONDING option; or both of the data 
items are elementary numeric data items in the case of the ADD or 
SUBTRACT statements with the CORRESPONDING option. 


Neither dl nor d2 may be data items with level-number 66, 77, or 88 
nor be described with the USAGE IS INDEX clause. 


A data item that dl oor d2 and contains a REDEFINES, 
RENAMES, OCCURS, | . ; Clause is ignored, as well as those 
data items subordinate to the data item that contains the REDEFINES, 
RENAMES, OCCURS, : ;. Clause. However, dl and d2 may have 
REDEFINES or OCCURS clauses or be subordinate to data items with 
REDEFINES or OCCURS clauses. 


Arithmetic Statements 


The arithmetic statements are the ADD, COMPUTE, DIVIDE, MULTIPLY, and 
SUBTRACT statements. They have several common rules. 


All literals used in arithmetic statements must be numeric. 


The data description of each identifier used as an operand must be 
that of an elementary numeric item. 


The data descriptions of the operands need not be the same; any 
necessary conversion, format transformation, and/or decimal point 
alignment is supplied throughout the calculation. 


The maximum size of each operand is 18 decimal digits. The composite 
of operands (a hypothetical data item resulting from the 
superimposition of specified operands in a given statement, aligned on 
their decimal points) must not contain more than 18 digits. The 
compiler ensures that enough places are carried so that significant 
digits are not lost during the calculation of intermediate results. 


Editing symbols must not be specified in the descriptions of any 
operand, except in a resultant item that only receives the calculated 
result but is not used in the computation itself. 


The resultant item of a COMPUTE statement may be an edited item. The 
resultant of an ADD, SUBTRACT, MULTIPLY, or DIVIDE statement may be an 
edited item only when the GIVING option is specified. Operands in a 
computation must not be edited items in any other circumstances. 


When the number of decimal places ina result is greater than the 
number of decimal places associated with the resultant-identifier, 
truncation occurs. However, when the ROUNDED option is specified for a 
resultant-identifier, the least significant digit of the 
resultant-identifier is increased by 1 when the most significant digit 
of the truncated excess is equal to or greater than 5. 


A size error occurs when the magnitude of the calculated result 
exceeds the largest magnitude that can be contained in the 
resultant-identifier. When a size error occurs and the ON SIZE ERROR 
option is specified, the value of the resultant-identifier is not 
altered and the imperative-statement is executed. 
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Overlapping Operands 


When a sending and a receiving item in an arithmetic statement or in an 
EXAMINE, MOVE, or SET statement share a part of their storage areas, the result 
of the execution of such a statement is undefined. 


Multiple Results in Arithmetic Statements 
eee an eee ee bay Le CSMeh LS. 


The ADD, COMPUTE, DIVIDE, MULTIPLY, and SUBTRACT statements may have 
multiple results. Such statements behave as though they had been written as: 


Ls Statements which perform all arithmetic necessary to arrive at the 
result to be stored in the receiving items, and store that result in a 
temporary storage location. 

2s A sequence of statements transferring or combining the value of this 
temporary location with a single result. These statements are 
considered to be written in the same left-to-right sequence in which 
the multiple results are listed. 

The result of the statement 
ADD ay Dy e°lO 6; dd. te)4..e 
is equivalent to: 
ADD a, b, c GIVING temp 
ADD temp TO c 
ADD temp TO d (c) 
ADD temp TO e 


where 'temp' is an intermediate result item provided by the compiler. 


CATEGORIES OF VERBS 


Verbs available in Series 60/6000 COBOL are listed below within their 
functional categories. 


Category Verb 


ADD 
COMPUTE 
DIVIDE 
Arithmetic EXAMINE (TALLYING) 
MULTIPLY 
SUBTRACT 


COPY 


Compiler-Directing ENTER 
USE 
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Category 


Conditional 


Data Movement 


Ending 


Input-Output 


Inter=-Program 
Communicating 


Procedure Branching 


Report Writing 


Ordering 


Table Handling 


Verb 


| ADD aoe a) 


DIVIDE (SIZE ERROR) 

GO TO (DEPENDING) 

ae 

MULTIPLY (SIZE ERROR) 
READ (END or INVALID KEY) 
RETURN (END) 

SEARCH 

SUBTRACT (SIZE ERROR) 
WRITE (INVALID KEY) 


EXAMINE (REPLACING) 
MOVE 


{ stop 


ee 


SEEK 


WRITE 


GENERATE 
INITIATE 


TERMINATE 


SEARCH 
SET 


NOTE: IF is a verb only in the COBOL sense; it is recognized that it is 


not an English verb. 


SPECIFIC STATEMENT FORMATS 


The specific statement formats, with associated restrictions and 
limitations, are contained on the following pages in alphabetic sequence. 
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ACCEPT ACCEPT 


The ACCEPT statement is used to cause low-volume data to be made available 
to the specified identifier from sources described in the SPECIAL-NAMES 
paragraph. 


Format 1: 


ACCEPT identifier [ FROM mnemonic-name] 


Format 2: 


Syntax Rules: 
die The mnemonic-name must be associated with one of the options defined 
in the SPECIAL-NAMES paragraph. 
ne The identifier must be a level 01 or a level a7 item in 
working-storage. 
General Rules: 
Format 1: 
Lis An ACCEPT statement may be used to obtain input data from any of the 
following sources: 
ae GIN (the system input feature of the operating system). 


ae REMOTE (a terminal not operating under the control of the 
Transaction Processing System). 


Ge GLAPS (an operating system feature that provides accumulated 
processor time for the current run unit). 


e. CONSOLE and TYPEWRITER (the system operator interface). 


£. SWITCH (a portion of the program switch word, a special software 
feature provided by the operating system). 


When the FROM mnemonic-name phrase is not used, the input source is 
considered to be system input (GIN). The FROM phrase must be specified 
for any other input source, and the mnemonic-name must _ be a 
user-supplied word associated with an input source by a phrase in the 
SPECIAL-NAMES paragraph. 
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ACCEPT 


2/77 


ACCEPT 


When utilizing the system input file (GIN) via ACCEPT statements, the 
user may either omit the FROM phrase or associate a mnemonic-name with 
GIN in the SPECIAL-NAMES paragraph. The data item referenced in the 
ACCEPT statement must be described with USAGE DISPLAY, explicitly or 
implicitly. Each record of the system input file is assumed to be a 
Hollerith card image in which the data occupies the leftmost character 
positions. No automatic format check or conversion is provided, so it 
is recommended that the user employ IF statements to assure that. the 
input card contents satisfy the receiving item's description. 
Similarly, no automatic end-of-file provision is available, so the 
user must provide an end-of-file test if the volume of system input 
data can vary. However, each ACCEPT statement executed after the 
system input is exhausted obtains all spaces, as if a blank card had 
been read. 


Each ACCEPT statement whose mnemonic-name iS associated with REMOTE 
will cause a single interaction with the remote terminal. The 
terminal operator is notified of the need for a response by a carriage 
return followed by the display of the character '?' and the ringing of 
the terminal's bell, if the terminal is so equipped. The input 
characters, if any, are converted to Hollerith, USAGE DISPLAY 
characters and are moved into the data item referenced in the ACCEPT 
statement. The referenced data item should be described, explicitly 
or implicitly, with USAGE DISPLAY. No automatic format check or radix 
conversion is performed. 


If a remote terminal is represented by a mnemonic=-name in the ACCEPT 
and DISPLAY statements, connections must be made to the appropriate 
device at object program execution. A connection may be obtained: 


He By using a 'talk' mode in the time sharing environment. Refer to 
the TSS Terminal/Batch Interface manual and the TSS System 


Programmers’ Reference Manual. 


bi By obtaining a connection through an external communications 


system. Refer to the Network Processing Supervisor (NPS) manual 


or to the Remote Terminal Supervisor (GRTS) manual. 


Sy By requesting a line switch from the Transaction Processing 
Executive (TPE). 
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ACCEPT 


Zi Fi 


ACCEPT 


Each ACCEPT statement whose mnemonic-name is associated with GLAPS 
will cause the identifier to receive the processor time accumulated by 
the current run unit. Time resolution is given in units of 1/64 
millisecond. The receiving identifier data item must be a 
working-storage data item whose description is equivalent to the 
following: 


77 data-name PICTURE 9(10) USAGE COMPUTATIONA 


Each ACCEPT statement whose mnemonic-name is associated with GTIME, 
without the HMS option, will cause the identifier to receive the 
current system date and system clock time. Time resolution is given 
in units of 1/64 millisecond. The receiving identifier must be a 
working-storage data item whose description is equivalent to the 
following: 


Ol data-name. 
02 MONTH PICTURE 99. 
02 DAY-OF-MONTH PICTURE 99. 
02 YEAR PICTURE 99. 
OZ “TYME <PICTURE 9(10) 


OP 32 GTIME phrase to obtain time 
resolutio in terms of hours, minutes, and seconds, the receiving 
identifier must be described with USAGE DISPLAY (explicitly or 
implicitly). For example, the receiving identifier could be described 
as: 


Ol data=-name. 
02 MONTH PICTURE 99. 
02 DAY-OF-MONTH PICTURE 99. 
02 YEAR PICTURE 99. 
02 TYME PICTURE 9(6). 


NOTE: The data-names used in these examples are for illustration 
only. 


Each ACCEPT statement whose mnemonic-name is associated with CONSOLE 
will cause a single interaction with the operator's console. The 
system operator is notified that a response is expected by the display 
of a message. The message will have one of the following forms: 


Ae If a DISPLAY statement associated with CONSOLE has been executed, 
the message will be the text of the last line associated with the 
latest prior DISPLAY statement associated with CONSOLE. The 
message will be followed by the characters '???'. 


ive If no prior DISPLAY statement associated with CONSOLE has_ been 
executed, the message will be 'TYPEIN EXPECTED...'. 
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ACCE 


2ft7 


ye 


LO. 


a A 


12% 


ACCEPT 


The input characters, if any, are treated as Hollerith, USAGE DISPLAY 
characters and are moved into the data item referenced by the ACCEPT 
statement. The referenced data item should be described, explicitly 
or implicitly, with USAGE DISPLAY. No automatic format check or radix 
conversion is performed. 


Each ACCEPT statement whose mnemonic-name is associated with 
TYPEWRITER will cause a single interaction with the operator's 
console. The system operator is notified that a response is expected 
by a carriage return followed by the message 'TYPEIN BXPECTEDs << 
The input characters, if any, are treated as Hollerith, USAGE DISPLAY 
characters and are moved into the data item referenced in the ACCEPT 
statement. The referenced data item should be described, explicitly 
or implicitly, with USAGE DISPLAY. No automatic format check or radix 
conversion is performed. System console input-output is not 
recommended unless very unusual circumstances exist. 


Tf a mnemonic-name associated with SWITCH is specified, the ACCEPT 
statement causes the value of the identifier to be set to 1 if the 
switch is ON, or set to 0 if the switch is OFF. The identifier must 
be a data item in the Working-Storage Section whose description is 
equivalent to the following: 


Refer to Section VI of the COBOL User's Guide for additional 
information. 
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ADD 


The ADD statement is used to sum two or more numeric operands and store 
result. 


Format 1: 


literal-1l , Literal-2 
ADD sae CO Adentifier=<m [ ROUNDED | 


identifier-1l , identifier-2 
I identifier-n frounneo} ce 


[on SIZE ERROR imperative-statement | 


Format 2: 


ex tenolad , literal-2 , literal-3 
ADD 
|identifier-1 |, identifier-2 , identifier-3 


GIVING identifier-m [ ROUNDED | 


[ow SIZE ERROR imperative-statement | 


Format 3:3 


CORR 
ADD identifier-l1 TO identifier-2 [ ROUNDED | 
| connesponpine Teuor se 


[on SIZE ERROR imperative-statement | 


Syntax Rules: 


i ie? When Format 1 or Format 2 is used, each identifier must refer to 


ADD 


the 


an 


elementary numeric item, except that in Format 2 the identifier 
following the word GIVING must refer either to an elementary numeric 


item or to an elementary numeric edited item. 


2% Each literal must be a numeric literal. 
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ADD 


No literal or identifier may exceed 18 decimal digits in size. The 
composite of operands (the hypothetical data item resulting from the 
superimposition of all operands of a given statement, excluding the 
data items that follow the word GIVING, aligned on their decimal 
points) must not contain more than 18 digits. 


CORR is an abbreviation for CORRESPONDING. 


General Rules: 


ee 


When Format 1 is used, the values of the operands preceding the word 
TO are added together. That sum is then added to the current value of 
each identifier-m, identifier-n, ..., and the result is stored in each 
resultant-identifier: identifier-m, identifier-n, ..., respectively. 


When Format 2 is used, the values of the operands preceding the word 
GIVING are added together That sum is then stored as the new value of 
each identifier-m, ide which are the 
resultant-identifiers. 


When Format 3 is used, the data items in identifier-l are added to and 
stored in corresponding data items in identifier-2. 


Refer to the Common Options in Statement Formats paragraph in this 


section for an explanation of the uses of ROUNDED, SIZE eige 
CORRESPONDING, and multiple results in arithmetic statements. 
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i ene 


ALTER ALTER 


The ALTER statement is used to change the destination of a GO TO statement 
from one procedure=-name to another. 


General Format: 
ALTER procedure=name-l TO [ PROCEED TO: procedure-name-2 


° [ procedure-name-3 TO [ PROCEED TO | procedure-name-4 ee 


Syntax Rules: 


dg Each procedure-name-l, procedure-name-3, etc., is the name of a 
paragraph containing a single sentence consisting of a GO TO statement 
without the DEPENDING option. 


ae Each procedure-name-2, procedure-name-4, etc., is the name or 2 
paragraph or section in the Procedure Division. 


General Rules: 


c™ 


a When the ALTER statement is executed, the GO TO statement in the 
paragraph named procedure-name-1l, procedure~name-3, etc., is modified 
so that subsequent executions of the GO TO statement cause a_ transfer 
of control to the paragraphs or sections named procedure-name-2, 
procedure-name-4, etc., respectively. 


ie A GO TO statement in a section whose priority-number is equal to or 
greater than 50 must not be referred to by an ALTER statement 20. a 
section having a different priority-number. All other uses of the 
ALTER statement are valid and are performed, even if the GO TO 
statement to which the ALTER statement refers is a fixed overlayable 
segment. Refer to Segmentation in Section II. 
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CALL CALL 


General Format: 


Syntax Rules: 


General Rules: 
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CLOSE CLOSE 


The CLOSE statement is used to terminate the processing of reels, units, 
and files with optional rewind and/or lock where applicable. 


General Format: 


REEL NO REWIND| | 
CLOSE file-name-1 3 WITH io. 
ee 4 UNIT LOCK | 
REEL NO REWIND | | 
, file-name-2 With’. ¢. ae 
aUNIT LOCK 


Syntax Rules: 


Ls 


can The REEL and WITH NO REWIND options apply only to files stored on tape 
devices and other devices to which these terms are applicable. The& 
UNIT option is applicable only to mass storage files in thea 
sequential-access mode. 


General Rules: 


In the discussion below, the term ‘unit' applies to all input-output 
devices; the term 'reel' applies to tape devices. Treatment of mass_ storage 
devices in the sequential-access mode is logically equivalent to the treatment 
of a file on tape or analogous media. 


Ls For the purpose of showing the effect of various CLOSE options as 
applied to various storage media, all input, output, and input-output 
files are divided into the following categories: 


ae Non-reel. A file whose input or output medium is such that the 
concepts of rewinding and reels have no meaning. 


Dis Sequential single-reel/unit. A sequential file that is entirely 
contained on one unit. 


om Sequential multi-reel. A sequential file that is contained on 
more than one reel. 


d. Random single-unit. A file in the random-access mode that is 
entirely contained on a single mass storage unit. 


CLOSE 


CLOSE 


The results of executing each CLOSE option for each type of file are 
summarized in the following table; symbol definitions are given after 
the summary. If the definition depends on whether the file is an input 
Or an output file, alternate definitions are given; otherwise, the one 
definition applies to input, output, and input-output files. 


pee 


Sequential Sequential Random 
Single- Multi- Single- 
Reel/Unit Reel Unit 


CLOSE 


CLOSE WITH 
LOCK 


CLOSE WITH 
NO REWIND 


CLOSE REEL 


CLOSE REEL 
WITH LOCK 


CLOSE REEL 
WITH NO 
REWIND 


NOTE: The letters in the table are explained below. 


A = Previous Reels Unaffected 


Input files and input-output files: All reels in the file prior to 
the current reel are processed according to the standard reel swap 
procedure, except those reels controlled by a prior CLOSE REEL 
statement. If the current reel is not the last in the file, the 
reels in the file following the current one are not processed in 
any way. 


Output files: All reels in the file prior to the current reel are 


processed according to the standard reel swap procedure, except 
those reels controlled by a prior CLOSE REEL statement. 
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CLOSE 


E 


CLOSE 


No Rewind of Current Reel 
The current reel is left in its current position. 


Standard Close File 


Input files and input-output files (sequential-access mode): If 
the file 1S positioned at its end and a Tabel record is specified 
for the file, the label is processed according to the standard 
label convention. The behavior of the CLOSE statement when a label 
record is specified but not present, or when a label record is not 
specified but is present, is undefined. If specified by the USE 
statement, a user's label procedure is executed. The order of 
execution of these two processes is specified by the USE 
Statement. If the file is positioned at its end and label records 
are not specified for the file, label processing does not take 
place but other closing operations are executed. If the file is 
positioned other than at its end, the closing operations are 
executed, but there is no ending label processing. An input file, 
or an input-output file, is considered to be at the end of the 
file if the imperative-statement in the AT END phrase of the READ 
statement has been executed and no CLOSE statement has been 
executed. 


Input files and input-output files (random-access mode) and output 
files (random- or sequential-access mode): If a label record is 
Specified tor the file, the Tabel is processed according to the 
standard label convention. The behavior of the CLOSE statement 
when a label record is specified but not present, or when a_ label 
record is not specified but is present, is undefined. If specified 
by the USE statement, a user's label procedure is executed. The 
order of execution of these two processes is specified by the USE 
statement. In addition, other closing operations are executed. If 
label records are not specified for the file, label processing 
does not take place but other closing operations are executed. 


Standard Reel Lock 

An appropriate technique is supplied to ensure that the current 
reel cannot be processed again as a part of this file during this 
execution of this object program. (The current reel is rewound.) 
Standard File Lock 

An appropriate technique is supplied to ensure that this file 
cannot be opened again during this execution of this object 


program. 


Standard Close Reel 


Input files: The following operations are executed: 


% A reel swap. 
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CLOSE 


2fad 


CLOSE 


® The standard beginning reel label procedure and the user's 
beginning reel label procedure (if specified by the USE 
statement). The order of execution of these two procedures 
is specified by the USE statement. 


Output files and input-output files: The following operations are 


executed: 


& (For output files only.) The standard ending reel label 
procedure and the user's ending reel label procedure (if 
specified by the USE statement). The order of execution of 
these two procedures is specified by the USE statement. 


& A reel swap. 


a The standard beginning reel label procedure and the user's 
beginning reel label procedure (if specified by the USE 
statement). The order of execution of these two procedures 
is specified by the USE statement. 


G = Rewind 


The current reel or analogous device is positioned at the physical 
beginning of its content. 


X = Illegal 


X indicates an illegal combination of a CLOSE option and a file 
type. If any such combination is used, the results at object 
program execution are unpredictable. 


All files that have been opened must be closed prior to the execution 
of a STOP RUN statement. 


If the file has been specified with the OPTIONAL phrase in _ the 
FILE-CONTROL paragraph and is not present, the standard end-of-file 
processing is not performed. 


If a CLOSE statement without the REEL option has been executed for a 
file, a READ, WRITE, or SEEK statement for that file must not be 
executed unless an intervening OPEN statement for that file is 
executed. 
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COMPUTE 


COMPUTE 


The COMPUTE statement is used to assign the value of a numeric data item, a 
literal, or an arithmetic-expression to a data item. 


General Format: 


COMPUTE identifier-1l [ ROUNDED ] 


identifier-2 
literal-1l 
arithmetic-expression 


[ ow SIZE ERROR imperative-statement | 


Syntax Rules: 


General 


i 


Literal-1l must be a numeric literal. 
Each identifier must refer to an elementary numeric item. However, 
identifier-l1 is not used as an operand and therefore may, if 
necessary, describe numeric data items containing editing symbols. 
The maximum size of each operand is 18 decimal digits. 
The arithmetic-expression, if used, permits any meaningful combination 
of identifiers, numeric literals, and arithmetic Operators, 
parenthesized as required. 

Rules: 
Identifier-1l is assigned the value computed from the 
arithmetic-expression, or the value of identifier-2, or of literé'-l. 
The identifier-2 and literal-l options provide alternative method: for 
setting the value of identifier-1 equal to the value of identif. 2r-2 
or literal-l. 
The COMPUTE statement allows the user to combine arithmetic operations 
without the restrictions on composite of operands and/or receiving 
data items imposed by the arithmetic statements ADD, SUBTRACT, 
MULTIPLY; oF DIVIDE. 
Refer to the Common Options in Statement Formats paragraph for an 


explanation of the uses of the ROUNDED and SIZE ERROR options. For 
COMPUTE usage, refer to the COBOL User's Guide. 
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COPY COPY 


The COPY statement is used in the Procedure Division to incorporate 
paragraph procedures from a library into the source program. 


Format 1: 


paragraph-name. 


section-name SECTION [priority-number ] : 


COPY library-name 


word=-2 
REPLACING word-l BY literal-1 | 
a identifier-1l 
word-4 
, word-3 BY literal=-2 oa ‘ 
~~ | jidentifier-2 


c™, Format 2:3 


NOTE: Paragraph-name and section-name are not part of the COPY statement; 
they are shown only for clarity. 


Syntax Rules: 


ae When the COPY statement is specified, the library-name is required. 
The library-name must be identical to the name associated with the 
desired text on the library. 


Ae In Format 1, a word is any COBOL word and may be one of the following: 
8 Condition=-name 
) x Data-name 
| 
* File=name 
® Mnemonic-name 
® Procedure=name 
>, ce When the COPY statement is used, it must be the first statement in the 


paragraph or section, 
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Cory 


COPY 


General Rules: 


Lie 


Format 1 of the COPY statement represents the American National 


For a detailed description of the COPY statement, see Section: VILL; 
the COBOL Library, and Section XIV of the COBOL User's Guide. 
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DISPLAY DISPLAY 


The DISPLAY statement is used to transmit low-volume data to a special 
output device. 


Format 1: 
literal-1l literal-2 
DISPLAY > eu 
identifier-l identifier-2 
[ UPON mnemonic-name | 


Format 2: 


Syntax Rules: 


ae The mnemonic-name is associated with an I-O device in the 
SPECIAL-NAMES paragraph of the Environment Division. 


ae Each literal may be any figurative constant except ALL. 
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DISPLAY DISPLAY 


Ww 


General Rules: 


Format 1: 
se A DISPLAY statement may be used to transmit output data to any of the 
following destinations: 


rs SYSOUT (the low-volume system output feature of the operating 
system). 


Ds REMOTE (a terminal not operating under the control of the 
Transaction Processing System). 


Cs CONSOLE and TYPEWRITER (the system operator interface). 


ce SWITCH (a portion of the program switch word, a special software 
feature provided by the operating system). 


When the UPON mnemonic-name phrase is not used, the output destination 
is considered to be system output (SYSOUT). The UPON phrase must be 
specified for any other output destination, and the mnemonic-name must 
be a user-supplied word associated with an output destination by a 
phrase in the SPECIAL-NAMES paragraph. 


2% The following rules apply to all DISPLAY statements: 


a. When the DISPLAY statement specifies multiple operands, the data 
characters associated with each operand are concatenated in the 
a Of the occurrence of arn operands. dS are AOt 


eG. Identifier-l, identifier-2, coer must be i a pa with USAGE 


d- Literal-1, literal-2, ..., may be figurative constants, in which 
case only a single occurrence of the figurative constant is 
displayed. 


35 When utilizing the system output file (SYSOUT) via DISPLAY statements, 
the user may either omit the UPON phrase, or associate a mnemonic-name 
with SYSOUT in the SPECIAL-NAMES paragraph. This type of output is 
assumed to be directed to a printer, each line of which is considered 
to contain 132 character positions. The DISPLAY statement may produce 
more than one line of printing to SYSOUT if the cumulative size of the 
referenced operands exceeds a total of 132 characters. 
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DISPLAY 


aan ie 


7-38.1 


DISPLAY 


DD25A 


DISPLAY 


DISPLAY 


Fach DISPLAY statement whose mnemonic-name is associated with REMOTE 
will cause from one to four lines to be displayed on the remote 
terminal, depending upon the size of the referenced data items. Each 
line will contain at most 72 characters, thereby limiting the total 
size of the referenced items to 288 characters. 


Fach DISPLAY statement whose mnemonic-name is associated with CONSOLE 
will allow from one to four lines to be displayed on the system 
console, depending on the size of the referenced data items. Each line 
will contain at most 72 characters, thereby limiting the total size of 
the referenced items to 288 characters. The output line (or, if more 
than one line results from the statement, the last output line) is 
held in a buffer until the next execution of an ACCEPT statement 
associated with CONSOLE. At that time, the line will be used to inform 
the operator of a pending need for a response. 


The ACCEPT and DISPLAY statements need not appear together in _ the 
Source program, provided that the DISPLAY statement is executed first. 
Should no ACCEPT statement be executed after the DISPLAY statement, 
the output data is not displayed. Two DISPLAY statements of this kind 
with no intervening ACCEPT statement would result in the suppression 
of the output from the first DISPLAY statement. If more than one line 
results from an execution of a DISPLAY statement associated with 
CONSOLE, all lines except the last line are emitted at once and, in a 
multiprogramming environment, there is no assurance that: .any of the 
lines will be juxtaposed on the console display. 


Each DISPLAY statement whose mnemonic-name is associated with 
TYPEWRITER will cause from one to four lines to be displayed on_ the 
system console, depending on the size of the referenced data items. 
Fach line will contain at most 72 characters, thereby limiting the 
total size of the referenced items to 288 characters. If more than one 
line is emitted for a given DISPLAY statement, there 1S no assurance, 
in a multiprogramming environment, that the lines will be juxtaposed 
on the console display. System console output is not recommended 
unless very unusual circumstances exist. 


If a mnemonic-name associated with SWITCH is specified, only one 
operand (data-name, literal, or the figurative constant ZERO) may be 
given. If the value of the operand is 1, the switch will be set ON; if 
the value is 0, the switch will be set OFF. If a literal is used, it 
must be an integer that has a value of or 0. If a data-name is 
specified, it must be a COMPUTATION. = data item in the 
Working-Storage Section, with a size not exceeding eight digits. The 


If the value of the item exceeds one (1), the value modulo 2 
determines the switch setting. 


Refer to Section VI of the COBOL User's Guide for additional 
information. 
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DISPLAY DISPLAY 


Format 2: 
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DIVIDE DIVIDE 


| The DIVIDE statement is used to divide one numeric data item into another 
and to set the value of a data item equal to the result. 
Format 1: 
identifier-1l 
DIVIDE INTO identifier-2 [ ROUNDED | 
literal-l 
[on SIZE ERROR imperative-statement | 
Format 2: 
| identifier-l identifier-2 
| DIVIDE INTO GIVING 
| literal-1 literal=-2 
o™ identifier-3 [ROUNDED | 
[ on SIZE ERROR imperative-statement | 
Format 3: 
identifier-l identifier-2 
DIVIDE GIVING 
literal-1l literal=-2 
identifier-3 [ ROUNDED | 
[ on SIZE ERROR- imperative-statement | 
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DIVIDE 


Format 4: 


DIVIDE 


literal-1 


identifier-l identifier=-2 
DIVIDE INTO GIVING 


Format 5:3: 


literal=-2 
identifier-3 [ ROUNDED | REMAINDER identifier-4 


[on SIZE ERROR imperative-statement] 


identifier-1l identifier-2 
DIVIDE BY GIVING 
literal-1l literal-2 


Format 6:3 


identifier-3 [ ROUNDED | REMAINDER identifier-4 


[ on SIZE ERROR imperative-statement | 


Syntax Rules: 


i ee 


Each identifier must refer to an elementary numeric item, except that 
any identifier associated with the GIVING or REMAINDER phrase must 
refer to either an elementary numeric item or an elementary numeric 
edited item. 


Each literal must be a numeric literal. 


The maximum size of each operand is 18 decimal digits. The composite 
of operands (the hypothetical data item resulting from the 
superimposition of all operands of a given statement, excluding the 
REMAINDER data item, aligned on their decimal points) must not contain 
more than eighteen digits. 
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DIVIDE DIVIDE 


General Rules: 


5 ie When Format 1 is used, the value of identifier-l or literal-1l is 
divided oe the value of identifier~2. The value of the dividend 


2 When Format 2 is used, the value of identifier-l or literal-l is 
2 or literal-2 and the quotient is stored in 


4 When Format 3 is used, the value of sb Wenn or literal- l is 
is 

53 etc. 
4, Formats 4 and 5 are used when a remainder from the division operation 


is desired, namely identifier-4. The remainder in COBOL is defined as 
the result of subtracting the product of the quotient (identifier-3) 
and the divisor from the dividend. If ROUNDED is used, the quotient 
used to calculate the remainder is an intermediate field which 
contains the quotient of the DIVIDE statement, truncated rather than 


rounded. 
oe In Formats 4 and 5, the accuracy of the REMAINDER data item 
(identifier-4) is defined by the calculation described above. 


Appropriate decimal alignment and truncation (not rounding) will be 
performed for the contents of the data item referenced by 
identifier-4, as needed. 


8. 
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ENTER ENTER 


the source oESCran 


Format 1: 


Format 2: 


ENTER GMAP. 


‘: GMAP coding 


ENTER COBOL. 


Format 3: 


ENTER COBOL. 
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ENTER ENTER 


Format 4: 


ENTER COBOL. 


Syntax Rules: 


General Rules: 


a ENTER statements in a source program written for a computer other than 
the one on which the current source program is being compiled must be 
changed. 

Format 1: 
ie 
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ENTER ENTER 


Format 2: 


5 The ENTER GMAP statement must not contain a comment; a comment will 
cause GMAP flags to be appended to the generated code. The GMAP 
coding following an ENTER GMAP statement must be terminated by an 
ENTER COBOL statement which must begin on a new line. The ENTER COBOL 
statement must not contain a paragraph-name. The lines between the 
ENTER GMAP and ENTER COBOL statements must consist of GMAP coding. 


oe The first GMAP line following the ENTER GMAP statement should be 
either an executable GMAP instruction or a NULL pseudo-operation. If 
the COBOL statement immediately preceding the ENTER GMAP- statement 
implies a 'next sentence', a symbol will be generated and assigned to 
the first GMAP line. If the first GMAP line is a line for which a 
symbol is not allowed, the generated symbol will be undefined. If it 
is inconvenient to ensure that the first GMAP line is an executable 
instruction, the user should: 


a. Place a paragraph-name immediately preceding the ENTER GMAP 
statement, or 


bs Ensure that the COBOL statement immediately preceding the ETER 
GMAP statement does not imply a ‘next sentence', or 


cy Follow the ENTER GMAP statement with a NULL pseudo-operation. 


3% The special format used for the GMAP coding is the standard GMAP 
format shifted six places to the right. 


Columns Interpretation 

1-6 COBOL sequence number 
7-12 Location field 

E3 Even/odd subfield 
14-19 Operation field 

20-21 Blank 

22-72 Variable field 

73-80 Program identification 


Information appearing to the right of column 72 is not interpreted as 
part of the variable field. As in ordinary GMAP coding, comments must 
be separated from variable field information by at least one blank. 
The quotation mark character (") should not be used in the variable 
field because it has a special meaning in COBOL; the word QUOTE 
should be used instead. 
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ENTER 


ENTER 


GMAP symbols defined in the location field must not conflict with 
reserved system symbols. They must follow the GMAP rules for symbol 
formation. Symbols reserved for compiler use which must not be defined 
in the location field of GMAP statements include: 


Ae Symbols in the form lnnnnn, where '1l' is any letter and ‘nnnnn' 
is any string of five digits. 


ioe Symbols having any file-code specified in the Environment 
Division as their leftmost two characters. 


oP Symbols of the form VfcEOF, where 'fc' is any file-code specified 
in the Environment Division. 


as The PROGRAM-ID program-name defined in the Identification 
Division. 


e. The symbol ENTER. 


a Symbols Having either ‘.C* ‘or *C.' “as “their leftmost. two 
characters. 


g. The special symbols ZINBUF, ZOTHDR, ZOUTB1, ZOUTB2, COMMI, COMMO. 


ae Any symbol starting in column 7 with the first character numeric 
(such a symbol is treated as an optional debug statement). 


COBOL data-names and procedure=names are not directly accessible to 
GMAP coding; a special provision (see Format 3) permits GMAP symbols 
to be applied to COBOL procedures and data items. The ‘'locsym' of each 
File Control Block is the two-character file-code assigned in a SELECT 
sentence in the Environment Division followed by the characters 
'FICB'. (Refer to the File and Record Control reference manual.) 


For a file with an explicit or implicit process area, the beginning 
location of the process area has the symbol fcRECD where 'fc' is’ the 
file-code assigned. For any other file, a current record location 
pointer is available (provided the file is OPEN) in the address field 
(bits 0-17) of the File Control Block word with symbol fcFICB, where 
'fc' is the file-code assigned. Data must be addressed relative to the 
current record location pointer for such a file. 


References to File Control Blocks make a program sensitive to changes 
in input-output software and are therefore strongly deprecated. 


All GMAP rules must be observed in the GMAP coding. Pseudo-operations 
that alter the location counter may cause unpredictable results at 
object program execution. Their use presupposes a thorough 
understanding of the location counter conventions followed by the 
COBOL compiler in generating coding. 
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Format 3: 


The user must ensure that the contents of the EIS address registers 
are intact or reinitialized after every ENTER GMAP/ENTER COBOL 
sequence. The compiler implicitly optimizes the use of the EIS address 
registers across paragraphs. A given register . will not be 
reinitialized as long as the compiler can determine from the _ source 
statements that the register data is intact. Coding following the 
ENTER GMAP statement is not analyzed by the compiler; thus, when 
coding following the ENTER GMAP statement is used either to CALL a 
subroutine or to modify code generated from COBOL source statements, 
the user must either protect all index and address registers having 
GMAP coding or indicate to the compiler that the registers are to be 
reinitialized. This is accomplished by immediately following the ENTER 
COBOL statement with a new paragraph and including at least one 'ENTRY 
POINT IS entry=name' phrase in the program. 
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ENTER ENTER 


2/77 749 DD25A 


R 
ENTER ENTE 
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ENTER ENTER 
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ENTER 


ENTER 


DD25 


© 


o™ 


EXAMINE 


EXAMINE 


The EXAMINE statement is used to replace and/or count the number of 
occurrences of a given character in a data item. 


Format l1: 


UNTIL FLERST 
EXAMINE identifier TALLYING ALL literal-1l 
: LEADING 


[REPLACING BY literal-2] 


Format 2:3 


ALL 


EXAMINE identifier REPLACING LEADING literal-3 


BY 


Syntax Rules: 


1. 


General 


Ly 


CUNTIL ] FIRST 


literal=-4 


The description of 'identifier' must be such that its usage is DISPLAY 


(expl 
Each 
consi 
any f 


Rules: 


Examl 


Ae 


LeOLtly “or -inmplicicly). 


literal must consist of a single character belonging to a class 
stent with that of 'identifier'. In addition, each literal may be 
igurative constant except ALL. 


nation proceeds as follows: 


For nonnumeric data items, examination starts at the leftmost 
character and proceeds to the right. Each character in the data 
item specified by the identifier is examined in turn. 


If a data item referred to by the EXAMINE statement is numeric, 
it must consist of numeric characters and may possess. an 
operational sign. Examination starts at the leftmost character 
and proceeds to the right. Each character is examined in turn. If 
the letter 'S' is used in the PICTURE character-string of the 
data item description to indicate the presence of an operational 
Sign, the sign is completely ignored by the EXAMINE statement. 
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EXAMINE 


EXAMINE 


The TALLYING phrase creates an integral count which replaces the value 
of a special register called TALLY. The count represents the number 
of: 


ae Occurrences of literal-1 when the ALL option is used. 


Dy Occurrences of literal-1 prior to encountering a character other 
than literal-l when the LEADING option is used. 


Cs Characters not equal to literal-l encountered before the first 
occurrence of literal-1l when the UNTIL FIRST option is used. 


When any of the options in the REPLACING phrase are used, the 
replacement rules are as follows, subject to the qualifications stated 
in General Rule 2: 


a. When the ALL option is used, then literal-2 or literal-4 is 
substituted for each occurrence of literal-l or literal-3. 


Diss When the LEADING option is used, the substitution of literal-2 or 
literal-4 terminates as soon as a character other than literal-l 
or literal-3 or the right-hand boundary of the data item is 
encountered. 


Ce When the UNTIL FIRST option is used, the substitution of 
literal-2 or literal-4 terminates as soon as literal-l or 
literal-3 or the right-hand boundary of the data item is 
encountered. 


Gig When the FIRST option is used, the first occurrence of literal-l 
or literal-3 is replaced by literal-2 or literal-4. 
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EEO 


oc 


EXIT 


EXIT 


The EXIT statement is used to define the exit point for a series of 
= sea sg: ‘a BGI ee 


procedures 6 


General Format: 


paragraph-name. 


EXIT 


Syntax Rules: 


The EXIT statement must appear in a sentence by itself. 


The EXIT sentence must be preceded by a paragraph-name and must be the 
only sentence in the paragraph. 


General Rules: 


8 


It is sometimes necessary to transfer control to the end point of a 
series of procedures. This is usually accomplished by transferring 
control to the next paragraph or section, but in some cases this does 
not have the required effect. (For example, the point to which control 
is to be transferred may be at the Poti of a range of procedures 

-@ MERGE, or could be at the end of a 
declarative section.) The EXIT statement is provided to enable a 
procedure-name to be associated with such a point. If such a procedure 
has only a single control path to the exit point, the EXIT statement 
is not required. If the procedure has alternative paths to the exit 
point, an EXIT paragraph should be employed, and the various’ paths 
should then transfer control to the EXIT paragraph. 


The PERFORM statement, Ren SORT Peeobemionenn & INPUT bate eieere oe 


) require procedure- names Vpceecenced as ome 
-. -—procedure-name-1 [ THRU procedure-name-2 | 


The end of procedure-name-2 is the 'exit point' if the THRU option is 
used; otherwise the end of procedure-name-l1 is the exit point. The 
presence of intervening EXIT paragraphs does not affect this rule. If 
an EXIT paragraph is needed, it must be placed at the proper exit 
point, 
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EXIT EXIT 
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GENE RATE GENERATE 


The GENERATE statement is used to present a report entry based on Procedure 
Division control. 


General Format: 


GENERATE identifier 


Syntax Rule: 


Ls Identifier represents a TYPE DETAIL report group or an RD entry. 


General Rules: 
{ 


Ls If identifier represents the name of a TYPE DETAIL report group, 
GENERATE performs all the relevant automatic operations and produces 
an actual output DETAIL report group (detail reporting). 


a6 If identifier is the name of an RD entry, GENERATE performs all the 
relevant automatic operations and updates the FOOTING report group(s) 
within the report without producing an actual DETAIL report group 
associated with the report. Thus it increments all SUM counters 
associated with the report description (summary reporting). If the 
report includes more than one TYPE DETAIL report group, all SUM 
counters are incremented each time such a GENERATE is executed. 


ee GENERATE produces the following automatic operations (as needed): 


report groups. 


eon mee PAGE-COUNTER ee a meres 


condition is 
determined. 
Ds Recognizes any specified CONTROL breaks to produce appropriate 


CONTROL FOOTING and/or CONTROL HEADING report groups. 


on Accumulates all specified identifiers into the SUM counters. 
Resets the SUM counters on an associated control break. Performs 
an updating procedure between control break levels for each set 
of SUM counters. 


ae Executes any specified routines defined by the BEFORE REPORTING 
phrase of a USE statement before producing the associated report 
group(s). 
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GENERATE 


GENERATE 


During the execution of the first GENERATE statement referring to a 
report or to a DETAIL report group within a report, all CONTROL 
HEADING report groups specified for the report are produced in the 
order major...minor, immediately followed by any DETAIL report group 
specified in the statement. If an identifier control break is 
recognized when a GENERATE statement is executed (other than the first 
one executed for a report), all CONTROL FOOTING report groups 
specified for the report are produced from the minor report group up 
to and including the report group specified for the identifier which 
caused the control break. The CONTROL HEADING report group (s) 
specified for the report, from the report group specified for the 
identifier which caused the control break down to the minor report 
group, are then produced in that order. The DETAIL report group 
specified in the GENERATE statement is then produced. 


When data is implicitly moved to a report group description entry, it 
is edited according to the rules described under the MOVE statement. 
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GO TO 


GO TO 


The GO TO statement is used to transfer control from one part of the 
Procedure Division to another, 


Format 1: 


GO TO [ procedure-name-1 | 


Format 2: 


GO TO procedure=name=1 [: procedure-name-2 | ‘a 


, procedure-name-n DEPENDING ON identifier 


Syntax Rules: 


Als 


General 


L's 


Each procedure=-name must be the name of a paragraph or section in the 
Procedure Division. 


Identifier is the name of a numeric elementary item described with no 
positions to the right of the assumed decimal point. 


A GO TO... DEPENDING ON statement requires more than one 
procedure-name. 


Rules: 


When a Format 1 GO TO statement is executed, control is transferred to 
procedure-name-1 or to another procedure-name if the GO TO statement 
was modified by an ALTER statement. 


If procedure-name-1 in Format 1 is not specified, an ALTER statement 
that refers to this GO TO statement must be executed prior to the 
execution of this GO TO statement. 

When the Format 1 GO TO statement is referred to by an ALTER 
statement, the following rules apply whether or not procedure-name-1 
is specified: 

as The GO TO statement must have an associated paragraph-name. 


Ds The GO TO statement must be the only statement in the paragraph. 
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GO TO 


GO TO 


When a Format 2 GO TO statement is executed, control is transferred to 
procedure-name-1, procedure-name-2,..., procedure-name-n, depending on 
the value of the identifier being 1, 2, ..«.-, n. If the value of 
identifier is anything other than the positive or unsigned integers l, 
2, «ee, n, then a transfer does not occur and control passes to. the 
next statement in the normal sequence for execution. 
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An IF statement causes a condition to be evaluated. The subsequent action 
of the object program depends on whether the value of the condition is true or 


false. 


General Format: 


if condition 


statement-1 }{ ELSE statement-2 


NEXT SENTENCE ELSE NEXT SENTENCE | 


Syntax Rules: 


lL. 


Statement-l1 and statement-2 represent either a conditional statement 
or an imperative-statement, and either may be followed by a 
conditional statement. | 


The 'ELSE NEXT SENTENCE' phrase may be omitted only if it immediately 
precedes the final period of the sentence. 


"Conditions' are described at the beginning of this section. 


General Rules: 


1 nes 


When an IF statement is executed, the following action takes place: 


a. If the condition is true, the statements immediately following 
the condition (represented by statement-1) are executed and 
control then passes implicitly to the next sentence. 


by If the condition is false, either the statements following ELSE 
are executed or, if the ELSE phrase is omitted, the next sentence 
is executed. 


When an IF statement is executed and the NEXT SENTENCE phrase is 
present, control passes explicitly to the next sentence depending on 
the truth value of the condition and the placement of the NEXT 
SENTENCE phrase in the statement. 


Statement-1l and statement-2 may contain an IF statement. In this case, 
the IF statement is said to be nested. 


IF statements within IF statements may be considered as paired IF and 
ELSE combinations, proceeding from left to right. Thus, any ELSE 
encountered is considered to apply to the immediately preceding IF 
that has not been already paired with an ELSE. 


When control is transferred to the next sentence, either implicitly or 


explicitly, control passes to the next sentence as written or to a 
return mechanism of a PERFORM or a USE statement. 
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INITIATE INITIATE 


The INITIATE statement is used to begin processing a report. 


General Format: 


report-name-l , report-name-2 ... 


INITIATE 


Syntax Rule: 


die Each report-name specified in an INITIATE statement must be defined by 
a report description entry in the Data Division. 


General Rules: 


i INITIATE resets to zero all data-name entries associated with this 
report which contain SUM clauses (SUM counters). 


2. The PAGE-COUNTER, if specified, is initially set to one (l). After 
the execution of an INITIATE statement for a given report, the 
contents of PAGE-COUNTER for that report may be changed using a 
Procedure Division statement. 


oe The LINE-COUNTER, if specified, is automatically set to zero (0) by 
the INITIATE statement. 


4. A report can be reinitiated after it has been terminated. 


Sy INITIATE does not open the file with which the report is associated. 
An OPEN statement for the file must be executed before the INITIATE 
statement. 
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MERGE MERGE 


General Format: 


Syntax Rules: 
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MERGE 


General 


ate 


Pe 


Rules: 


MERGE 


DD25A 


MERGE MERGE 
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MERGE MERGE 


Special Considerations: 
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MOVE 


Dis When a numeric or numeric edited item is the receiving item, 
alignment by decimal point and any necessary zero- filling takes 
place as defined under the Standard Alignment Rules, except where 
zeros are replaced because of editing requirements. 


® When a signed numeric USAGE DISPLAY or » data 
item is the receiving item, the sign of the sending item is 
placed in the receiving item. Conversion of the 


representation of the sign takes place as necessary. If the 
sending item is unsigned, a positive sign is generated for 
the receiving item. 


@ Lie a USAGE COMPUTATIONAL or a USAGE § COMP: IMP: S 
“3 > data item is the receiving feeds the sign of the 
Lene item is placed in the implicitly signed receiving 
item. If the sending item is unsigned, the receiving item 
will be positive. 


@ When an unsigned numeric item is the receiving item, the 
absolute value of the sending item is moved and no 
operational sign is generated for the receiving item. 


® When a data item described as alphanumeric is the sending 
item, data is moved as if the sending item were described as 
an unsigned numeric integer. 


2a When a receiving field is described as alphabetic, justification 
and any necessary space-filling takes place as defined under the 
JUSTIFIED clause and the Standard Alignment Rules. If the size 
of the sending item is greater than the size of the receiving 
item, the excess characters are truncated on the right after the 
receiving item is filled. 


Any MOVE that is not an elementary move is treated exactly as tet. 3G 
were an alphanumeric-to-alphanumeric elementary move, except that 
there is no conversion of data from one form of internal 
representation to another. In such a move, the receiving area will be 
filled without consideration cox the individual elementary | or tele 


If the CORRESPONDING option is used, selected items within 
identifier-l are moved, with any pecgared editing, to selected items 
within identifier-2. Items are selected by matching the data-names of 


items defined within identifier-1 with like data-names of items 
defined within identifier-2 according to the following rules: 


Be At least one of the items must be an elementary item. 
Db The respective data-names are the same including ab 
qualifications up to but not including identifier-1l and 


identifier-2. 


Ce A MOVE CORRESPONDING statement must not reference items having 
level-numbers 66, 77, or 88, or items described with the USAGE I5 
INDEX clause. 


d. Any data-names which are subordinate to identifier=1 or 
Sian ag ei and which have REDEFINES, RENAMES, Si centiets., e 


contain REDEFINES, RENAMES , 
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af ii 


MOVE 


This restriction does not prevent identifier-l or identifier-2 
from having REDEFINES or OCCURS clauses or from being subordinate 


to data-names having REDEFINES or OCCURS clauses. 


In the execution of "MOVE CORRESPONDING ABLE TO BAKER', where the 


respective data descriptions are as follows: 


03 ABLE 03 BAKER 
04 P 04 P 
04 Q 04 Q 
04 R REDEFINES Q 04 R 
05 S 05> 5 


P and Q will be moved, but R will not be moved (it is a 


REDEFINES), nor will S be moved (it is subordinate to 


REDEFINES); the same applies if the REDEFINES had been in BAKER. 


Each CORRESPONDING source item is moved in conformity with the 
description of the receiving area. The results are the same as 
if the user had referenced each pair of CORRESPONDING data-names 


in separate MOVE statements. 


O. The following chart presents the relationship between the legality 


a MOVE and the General Rules (above) which affect the given category. 


Category of Receiving Data Item 


Category of Sending 
Data Items 


Alphabetic 


Alphanumeric 


Alphanumeric Numeric Integer 
Alphabetic Edited Num. Noninteger 
Alphanumeric Numeric Edited 


Legal/3c Legal/3a Tllegal/2a 
Legal/3c Legal/3a Legal/3b 


JAiphanuneric Baited JAiphanuneric Baited [esarae j uesai/aa  utegen/2n 


Integer == ITllegal/2b Legal/3a Legal/3b 
Numeric 
ITllegal/2b Illegal/2b Leeeiyat 
Illegal/2b Legal/3a Tllegal/2a 


JNoninteger 


Numeric jwumeric Batted 


T. When a sending and a receiving item in a MOVE statement share a part 
of their memory areas, the result of the execution of such a statement 


is undefined. 
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OPEN 


If a label record is specified for the file, the label is processed 
according to the standard beginning label convention. The behavior of 
the OPEN statement when a label record is specified but not present, 
or when a label record is not specified but is present, is undefined. 
If specified by the USE statement, a user's label procedure is 
executed. The order of execution of these two processes is specified 
by the USE statement. If label records are indicated as present by a 
LABEL RECORDS clause, the user's beginning label procedure (1E 
specified by a USE statement) is executed before or after (as 
indicated) checking but subsequent to writing the first label. 


The NO REWIND phrase can be used only with a_ sequential single 
reel/unit. (Refer to the CLOSE statement.) 


If the external medium for the file permits rewinding, the following 
rules apply: 


ae When the NO REWIND phrase is not specified, execution of the OPEN 
statement causes the file to be positioned at its beginning. 


Ds When the NO REWIND phrase is specified, execution of the OPEN 
statement does not cause the file to be repositioned. Therefore, 
when the NO REWIND phrase is specified, the file must have been 
positioned at its beginning. 


If an input file is designated with the OPTIONAL phrase in _ the 
FILE-CONTROL paragraph of the Environment Division, the object program 
causes an interrogation for the presence or absence of this file. If 
the file is not present, the first READ statement for this file causes 
the imperative-statement in the AT END phrase to be executed. 


The I-O option permits the opening of a mass storage file for both 
input and output operations. Since this option implies the existence 
of the file, it cannot be used if the mass storage file is being 
initially created. 


When I-O is specified and the LABEL RECORDS clause indicates label 
records are present, the execution of the OPEN statement includes the 
following steps: 


a. The label (if it exists) is checked in accordance with the 
standard conventions for input-output label checking. 


Db; The user's beginning label procedure, if one is specified by the 
USE statement, is executed. 


Cx The new label is written in accordance with the standard 
conventions for input-output label writing. 


When processing mass storage files for which the access mode is 
sequential, the OPEN statement supplies the initial address of the 
first record to be accessed. 
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PERFORM PERFORM 


The PERFORM statement is used to depart from the normal sequence of 
procedures to execute one or more procedures a specified number of times, or 
until a condition is satisfied, and then return to the normal sequence. 


Format 1: 
THRU 
PERFORM procedure-name-1l procedure-name-2 
THROUGH 
Format 2: 
THRU 
PERFORM procedure-name-1 procedure-name-2 
THROUGH 
identifier-1l 
TIMES 
integer-l 
Format 3: 
THRU 
PERFORM procedure-name-l procedure-name=-2 
THROUGH 
UNTIL condition-1l 
Format 4; 
THRU 
PERFORM procedure-name-1l procedure-name=-2 
THROUGH 
identifier-1l identifier-2 
VARYING FROM index-name-2 
index-name-1 literal-1 
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PERFORM 


PERFORM 


identifier-3 
UNTIL condition=-1 
literal=-2 
identifier-4 identifier-5 
AFTER FROM index-name=-4 
index-name-3 literal=3 
identifier-6 
UNTIL condition-2 
literal-4 
identifier-7 
AFTER 
index-name-5 
identifier-8 identifier-9 
FROM index-name-6 BY UNTIL condition=-3 
literal=5 literal-6 


Syntax Rules: 


. 


General 


ie 


Each procedure-name is the name of a section or paragraph in the 
Procedure Division. 
Each identifier represents a numeric elementary item described in the 
Data Division. In Format 2 and in Format 4 with the AFTER option, each 
identifier represents a numeric item with no positions to the right of 
the assumed decimal point. 
Each literal represents a numeric literal. 
The words THRU and THROUGH are equivalent. 

Rules: 
The range of a PERFORM starts with the first executable statement in 


procedure-name-1l and continues in logical sequence through the last 
executable statement of: 


ae Procedure=name=-2 if specified, or 


om Procedure-name-l if procedure-name-2 is not specified. 
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PERFORM 


When the PERFORM statement is executed, control is transferred to the 
first statement of the procedure named procedure-name-1l. An automatic 
return to the statement following the PERFORM statement is established 
as follows: 


a. If procedure-name-l is a paragraph-name and procedure-name-2 is 
not specified, then the return occurs after the last statement of 
the procedure-name-1l paragraph. 


ioe If procedure-name-1 is a section-name and procedure-name-2 is not 
specified, then the return occurs after the last statement of the 
last paragraph of the procedure~name-1 section. 


Se If procedure-name-2 is specified and is a paragraph-name, then 
the return occurs after the last statement of the 
procedure-name-2 paragraph. 


as If procedure-name-2 is specified and is a section-name, then the 
return occurs after the last statement of the last paragraph of 
the procedure-name-2 section. 


a consecutive sequence of operations is to be executed beginning at 
the procedure named procedure-name-1l and ending with the execution of 
the procedure named procedure=name-2. In particular, GO TO and PERFORM 
statements may occur between procedure-name-l and _ the end of 
procedure-name-2, provided control eventually passes to the return 
mechanism of procedure-name-2. If it is desired to have two or more 
logical paths to the return mechanism, then procedure-name-2 must be 
the name of a paragraph consisting of the EXIT statement, to which all 
of these paths must lead. 


When control passes to these procedures by means other than an 
implicit or explicit PERFORM statement and no related PERFORM is in 
progress, sequence of control will pass through the ‘last statement' 
to the following statement as if no PERFORM statement mentioning these 
procedures existed. 


The PERFORM statement for Formats 1 through 4 operates as follows, 
with Rule 3 above applying to all formats: 


ae Format 1 is the basic PERFORM statement. A return to the 
statement following the PERFORM is inserted after the ‘last 
statement' as defined in Rule 2, and sequence control is sent to 
procedure-name-1 for execution once. 


b. Format 2 is the TIMES option. The specified number of times must 
be an integer. The integer may be negative or zero, in which case 
control passes to the next statement. The PERFORM mechanism sets 
up a counter and tests it against the specified value before each 
transfer to procedure-name-1. The return mechanism after the 
'last statement' steps the counter and then sends control to the 
test. The test cycles control to procedure-name-1l the specified 
number of times, and after the last time sends control to the 
statement following the PERFORM. 
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PERFORM 


During execution of the PERFORM statement, reference to 
identifier-l cannot alter the number of times the procedures are 
to be executed from that which was indicated by the initial value 
of identifier-l. 


Format 3 is the UNTIL option. This option is similar to the TIMES 
option, except that an evaluation of a condition takes the place 
of counting and testing against a specified integer. The 
condition may be any simple or compound condition, as described 
under the Conditions paragraph in this section. When the 
condition is satisfied (true), control is transferred to the next 
statement after the PERFORM statement. If the condition is true 
when the PERFORM is entered, no transfer to procedure-name-1 
takes place and control is passed to the next statement after the 
PERFORM statement. 


Format 4 is the VARYING option. This option is used to augment 
the value of one or more identifiers or index-names in an orderly 
fashion during the execution of a PERFORM statement. In _ the 
following discussion, every reference to identifier as the object 
of the VARYING and FROM (starting value) phrases also refers to 
index-names. When index=names are used, the FROM and BY phrases 
have the same effect as in a SET statement. 


In Format 4, when one identifier is varied, identifier-l is set 
to its starting value (the value of identifier-2 or literal-l) at 
the point of initial execution of the PERFORM statement; then, if 
the condition of the UNTIL phrase is false, the sequence of 
procedures, procedure-name-1 through procedure-name-2, is 
executed once. The value of identifier-l is augmented by the 
specified increment or decrement value (the value of identifier-3 
or literal-2) and condition-l is evaluated again. The cycle 
continues until this condition is true, at which point control 
passes to the statement following the PERFORM statement. If 
condition-1l1 is true at the beginning of execution of the PERFORM 
statement, control passes directly to the statement following the 
PERFORM statement. 


ENTRANCE 


Set identifier-1l equal 
to initial value (FROM) 


- 
<Erditionl> 


False 


Execute procedure-name-1l 
[ THRU procedure-name-2 ] 


Augment identifier-l with 
its BY value 


Flow Chart for the Varying Option of a PERFORM Statement Having One Condition 
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In Format 4, when two identifiers are varied, identifier-l and 
identifier-4 are set to their initial values (the values of 
identifier-2 and identifier-5, respectively). During execution, 
these initial values must be positive. After initializing the 
identifiers, condition-1 is evaluated; if true, control is passed 
to the statement following the PERFORM statement; if false, 
condition=-2 is evaluated. Lt condition-2 is false, 
procedure-name=-1 through procedure=name-2 is executed once, then 
identifier-4 is augmented by identifier-6 or literal-4 and 
condition-2 is evaluated again. This cycle of evaluation and 
augmentation continues unt i condition-2 is true. When 
condition-2 is true, identifier-4 is set to its initial value 
(the value of identifier-5 or literal-3), identifier-l is 
augmented by identifier-3 and condition-l is re-evaluated. The 
PERFORM statement is completed if condition-l is true; if not, 
the cycles continue until condition-1l is true. Identifier-3 and 
identifier-6 must not be zero. During execution of the PERFORM 
statement, reference to index=-names or identifiers of the FROM 
phrase has no effect in altering the number of times’ the 
procedures are to be executed. Changing a value of index-names or 
identifiers of the VARYING phrase or identifiers of the BY 
phrase, however, will change the number of times procedures are 
executed. 


ENTRANCE 


Set identifier-l and 
identifier-4 to 
initial values (FROM) 


: True 


False 


True 


False 


Execute procedure-name-1l Set identifier-4 to 
CTHRU procedure=-name-2 J its initial value (FROM) 


Augment identifier-4 Augment identifier-l 
with its BY value with its BY value 


Flow Chart for the Varying Option of a PERFORM Statement Having Two Conditions 


(Format 4) 
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At the termination of the PERFORM statement, identifier-4 
contains its initial value, while identifier-l has a value that 
exceeds the last used setting by an increment or decrement value, 
unless condition-l was true when the PERFORM statement was 
entered, in which case identifier-l and identifier-4 contain 
their initial values. When two identifiers are varied, 
identifier-4 goes through a complete cycle (FROM, BY, UNTIL) each 
time identifier-l is varied. For three identifiers, the mechanism 
is the same as for two identifiers, except that identifier-7 goes 
through a complete cycle each time that identifier-4 is augmented 
by identifier-6 or literal-4, and identifier-4 in turn goes 
through a complete cycle each time identifier-l is varied. The 
following flow chart illustrates the logic of the PERFORM 
statement when three identifiers are varied. 


ENTRANCE 


Set identifier-l, 
identifier-4, and 
identifier-7 to 
initial values (FROM) 


True 
condition-l1 


False 


True 
condition-2 


False 


Execute 
procedure-name-1 
[THRU procedure-name-2] 


Set 
identifier-7 
to ts initial 
value (FROM) 


Set 
identifier-4 
co ifs aniettal 
value (FROM) 


Augment 
identifier-7 
With its - BY 
value 


Augment 
identifier-4 
With -2ts .BY 
value 


Augment 
identifier-l 


with its BY 
value 


Flow Chart for the Varying Option of a PERFORM Statement Having Three Conditions 
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After the completion of the PERFORM statement, identifier-4 and 
identifier-7 contain their initial values, while identifier-l has 
a value that exceeds its last used setting by one increment or 
decrement value, unless condition-l is true when the PERFORM 
statement is entered, in which case identifier-l, identifier-4, 
and identifier-7 all contain their initial values. 
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A PERFORM statement that appears in a section whose priority-number is 
less than the SEGMENT-LIMIT, can have within its range only the 
following: 


ae Sections, each of which has a priority-number less than 50, or 


bs Sections wholly contained in a Single segment whose 
priority-number is greater than 49, 


A PERFORM statement that appears in a section whose priority-number is 
equal to or greater than the SEGMENT-LIMIT, can have within its range 
only the following: 


ae Sections, each of which has the same priority-number as that 
containing the PERFORM statement, or 


Dix Sections having a priority-number less than the SEGMENT-LIMIT. 
When a procedure-name in a segment with a priority-number greater than 
49 is referred to by a PERFORM statement contained in a segment with a 


different priority-number, the segment referred to is made available 
in its initial state for each execution of the PERFORM statement. 
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For sequential-access file processing, the READ statement makes available 
the next logical record from an input or input-output file and allows 
performance of a specified imperative-statement when end-of-file is detected, 


For random-access file processing, the READ statement makes available a 
specified record from a mass storage file and allows performance of a specified 
imperative-statement if the contents of the associated ACTUAL KEY data item are 
found to be invalid. 


Format 1 (Sequential-Access Files); 
READ file-name RECORD [ INTO identifier | 


AT END imperative-statement 


Format 2 (Random-Access Files): 
READ file-name RECORD [ INTO identifier] 


INVALID KEY imperative-statement 


Syntax Rules: 


cc The INTO phrase must not be used when the input file contains logical 
records of various sizes as indicated by their record descriptions. 
The storage area associated with 'identifier' and the storage area 
which is the record area associated with the file-name must AGe be the 


eae Format 1 is used only for non-mass-storage files and for mass_ storage 
files in the sequential-access mode. 


ae Format 2 is used for mass storage files in the random-access mode. 


General Rules: 


Ls An OPEN statement must be executed for a file prior to the execution 
of the first READ statement for that file. 
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If after reading the last logical record of a file another READ 
statement is initiated for that file, that last logical record 1s no 
longer available in its record area and the READ statement is 
completed by the execution of the AT END phrase. Attempts to access 
the record area after the AT END phrase has been executed will cause 
unpredictable results. After the AT END condition has been recognized 
for a file, a READ statement for that file must not be given without 
prior execution of a CLOSE statement and an OPEN statement for that 
file. (Refer to Section V of the COBOL User's Guide.) 


When the logical records of a file are described with more than one 
record description, these records automatically share the same storage 
area; this is equivalent to an implicit redefinition of the area. Only 
the information that is present in the current record is accessible. 


If the INTO phrase is specified, the current record is moved from the 
input area to the area specified by identifier according to the rules 
specified for the MOVE statement without the CORRESPONDING phrase. Any 
subscripting or indexing associated with identifier is evaluated after 
the record has been read and immediately before it is moved to the 
data item. 


When the INTO phrase is used, the record being read is available in 
both the input record area and the data area associated with 
identifier. 


If a file described with the OPTIONAL phrase is not present, the 
imperative-statement in the AT END phrase is executed on the first 
READ. The standard end-of-file procedures are not performed. (See the 
OPEN and USE statements, and the FILE-CONTROL paragraph in the 
Environment Division.) 


If the end of a tape reel is recognized during execution of a READ 
statement, and the logical end of the file has not been reached, the 
following operations are accomplished: 


ee The standard ending reel label procedure and the user's ending 
reel label procedure, if specified by -the USE statement. The 
order of execution of these two procedures is specified by the 
USE statement. 


Ss A reel swap. 
one The standard beginning reel label procedure and the user's 
beginning reel label procedure, if specified. The order of 


execution is again specified by the USE statement. 


d. The first data record of the new reel is made available. 
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READ 


Format 2 is used for mass storage files in the random-access mode. 
The READ statement implicitly performs the function of the SEEK 
statement for a specific mass storage file. If such files are 
accessed for a specified mass storage record and the contents of the 
associated ACTUAL KEY data item are invalid, the INVALID KEY phrase is 
executed. 


Regardless of the method used to overlap access time with processing 
time, the concept of the READ statement is unchanged in that a record 
is available prior to the execution of any statement following the 
READ statement. 
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The RELEASE statement is used to transfer records to the initial phase of a 
sort operation. 


General Format: 


RELEASE record-name [ FROM identifier | 


Syntax Rules: 


1. d-name must be the name of a logical record in an associated 
. file description entry and may be qualified. 
fe The identifier and the record area associated with record-name must 


not be associated with the same storage area. 


7 The RELEASE statement can be used only within the range of an 
procedure associated with a SORT statement f file whose sort 
file description contains record=-name. | 


tie: 


c™ 


General Rules: 


Es If the FROM phrase is specified, the contents of the identifier data 
area are moved to record-name and the contents of record-name are then 
transferred to the initial phase of the sort process. Moving takes 
place in accordance with the rules for the MOVE statement without the 
CORRESPONDING phrase. The information in the record area is no longer 
available but the information in the identifier area is available. 


2% After the RELEASE statement is executed, the contents; of record-name 
are no longer available. 


3% When control passes from the input procedure, the sort file then 


consists of those records that were placed in it by the execution of 
RELEASE statements. 
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RETURN 


The RETURN statement is used to obtain ordered records from the final phase 


- Operation. 


General Format: 


RETURN file-name RECORD | INTO identifier ] 


AT END imperative-statement 


Syntax Rules: 


General 


es a 


1. 


1. 


The file-name must be described in a sort#! @e file description entry 
in the Data Division. 
The identifier and the record area associated with file-name must not 
be associated with the same storage area. 
The INTO phrase may be used only when the ordered file contains just 
one type of record. 
of -an output 
file description contains file-name 
Rules: 

When successive RETURN statements are executed, the records are 
delivered in the order specified by the KEY data-names described in 

or The next record becomes available for 
If the INTO phrase is specified, the current record is moved from the 
input area to the area specified by identifier in accordance with the 
rules for the MOVE statement without the CORRESPONDING phra se. When > 
poodnootinns OSS Rae ECO : 
After the AT END imperative-statement is executed, a RETURN staten2nt 


must not be executed within the current output procedure. 
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The SEARCH statement is used to search a table for a table element that 
satisfies the specified condition and to adjust the associated index-name to 
indicate that table element. 


Format l: 


index-name-lL 


SEARCH identifier-l VARYING 


Format 2: 


identifier-2 
[at END imperative-statement-1 | 


imperative-statement-2 
WHEN condition-1l 
NEXT SENTENCE 


imperative-statement-3 
NEXT SENTENCE 


SEARCH ALL identifier-l [ ar END imperative-statement-1 | 


imperative-statement-2 


WHEN condition-l 
NEXT SENTENCE 


Syntax Rules: 


1. 


In both Formats 1 and 2, identifier-l must not be subscripted or 
indexed, but its description must contain an OCCURS clause and an 
INDEXED BY phrase. The description of identifier-l in Format 2 must 
also contain the KEY IS option in its OCCURS clause. 


Identifier-2, when specified, must be described with USAGE INDEX or as 
a numeric elementary item with no positions to the right of the 
assumed decimal point. Identifier-2 is incremented by the same amount 
as, and at the same time as, the occurrence number represented by the 
index-name associated with identifier-l is incremented. 


In Format 1, condition-1, condition-2, etc., may be any condition as 
described previously in this section under Conditions. 
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4, In Format eg condition- 1 auee Consist of a relation condition 
LLS oO or equal sign, or a 
condition-name condition, ois fee. “VALUE clause that describes’ the 
condition-name contains only a single literal. Alternatively, 
condition-1l may be a compound condition formed from simple conditions 
of the type just mentioned, with AND as the only connective. Any 
data-name that appears in the KEY phrase of identifier-l may appear as 
the subject or object of a test or be the name of the conditional 
variable with which the tested condition-name is associated; however, 
all preceding data-names in the KEY phrase must also be included 
within condition-1l. No other tests may appear within condition-l. 


General Rules: 


des If Format 1 of SEARCH is used, a serial type of search Caeret cn Sean 
place, starting with the current index setting. I: be ry phrase: 


Ae If, at the start of execution of the SEARCH statement, -the 
index-name associated with identifier-l contains a value that wy 
corresponds to an occurrence number that is greater than _ the 
highest permissible occurrence number for identifier-l, the 
SEARCH is terminated immediately. Then, if the AT END phrase is 
specified, imperative-statement-1 is executed; if the AT END 
phrase is not specified, control passes to the next sentence. 


bx If, at the start of execution of the SEARCH statement, the 
index-name associated with identifier-l contains a value that 
corresponds to an occurrence number that is not greater than the 
highest permissible occurrence number for identifier-l, the 
SEARCH statement operates by evaluating the conditions in the 
order that they are written, making use of the index settings, 
wherever specified, to determine the occurrence of those items to 
be tested. If none of the conditions are satisfied, the 
index-name for identifier-1l is incremented to obtain reference to 
the next occurrence. The process is then repeated using the new 
index-name settings unless the new value of the index-name 
settings for identifier-1l corresponds to a table element which 
exceeds the last element of the table by one or more occurrences, 
in which case the search terminates as indicated in a. above. If 
one of the conditions is satisfied upon its evaluation, the 
search terminates immediately and the imperative-statement 
associated with that condition is executed; the index-name 
remains set at the occurrence which caused the condition to be 
satisfied. 
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If Format 2 of SEARCH is used, a nonserial type of search operation 
takes place, in which case the initial setting of the index-name for 
identifier-l is ignored and its setting is varied during the search 
operation in a manner which allows a 'binary' search operation to be 
executed, with the restriction that at no time is it set to a value 
that exceeds the value which corresponds to the last element of the 
table, or that is less than the value that Le sbcthel a ldots to the first 
element of the tabl ecuti fi 


pi : 
: If condition-1 
cannot be satisfied for any setting of the index within this permitted 
range, control is passed to imperative-statement-l when the AT END 
phrase appears, or to the next sentence when the AT END phrase _ does 
not appear; in either case the final setting of the index is not 
predictable. If condition-1 can be satisfied, the index indicates an 
occurrence that allows condition-1 to be satisfied, and control passes 
to imperative-statement-2. 


After execution of imperative-statement-l1, imperative-statement-2, or 
imperative-statement-3 that does not terminate with a GO TO statement, 
control passes to the next sentence, 


In the VARYING index-name-1 phrase, if index-name-l appears in the 
INDEXED BY phrase of another table entry, the occurrence number 
represented by index-name-l is incremented by the same amount as, and 
at the same time as, the occurrence number represented by the 
index-name associated with identifier-l is incremented. 


If identifier-l is a data item subordinate to a data item that 
contains an OCCURS clause (providing for a two- or three-dimensional 
table), an index-name must be associated with each dimension of the 
table through the INDEXED BY phrase of the OCCURS clause. Only the 
setting of the index-name associated with identifier-l (and the data 
item identifier-2 or index-name-l, if present) is modified by the 
execution of the SEARCH statement. To search an entire two- or 
three-dimensional table, it is necessary to execute a SEARCH statement 
several times. Prior to each execution of a SEARCH statement, SET 
statements must be executed whenever index=-names must be adjusted to 
appropriate settings. 
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A diagram of the Format 1 SEARCH operation containing two WHEN phrases 
follows: 


Index setting: 
highest permissible 
occurrence number 


> AT END imperative- 
statement-l 


condition-l True imperative- 


statement-2 


imperative- 
statement-3 


True 


Increment 
index-name for 
identifier-1l 
(index-name-1 
if applicable) 


Increment 
index-name-1l (for 
a different table) 
or identifier-2 


1 These operations are options included only when specified in the 
SEARCH statement. 


2Fach of these control transfers is to the next sentence unless’ the 
imperative-statement ends with a GO TO statement. 
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The SEEK statement is used to initiate the accessing of a mass storage data 
record for subsequent reading or writing. 


General Format: 


SEEK file-name RECORD 


Syntax Rule: 


qs 


General Rules: 


Ae The SEEK statement pertains only to mass storage files in the 
random—access mode and may be present prior to the execution of each 
READ and WRITE statement. However, due to the requirements of the 
operating system, the SEEK statement has no effect on the access of a 
record. 


eu Two SEEK statements for the same mass storage file may logically 
follow each other. 
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The SET statement is used to establish reference points for table-handling 
operations by setting index-names associated with table elements. 


Format 1: 


index-name-1 [: index-name-2 | Sas index—name-3 
SET ( \ 20 ( } 


identifier-3 
identifier-1l 1? identifier-2 ] — literal-1 


Format 2: 


eae oy g identifier-4 
SET index-name-4 [? index-name-5 ]... { ( } 
| DOWN BY literal-2 


Syntax Rule: 


Sa All references to index-name-l, identifier-l, and index-name-4 apply 
equally to index-name-2, identifier-2, and index-name-5, respectively. 


General Rules: 


2 ie All identifiers must name either index data items or elementary items 
described as an integer, except that identifier-4 in Format 2 must not 
name an index data item. When a literal is used, it must be a 
positive integer. Index-names are considered related to a given table 
and are uniquely defined by being specified in the INDEXED BY phrase 
of the OCCURS clause. 


Zs 
3% In Format 1, the following action occurs: 
a. Index-name-l is set to that value corresponding to the occurrence 
number implied by the value of index-name-3, identifier-3, or 
literal-l. If identifier-3 is an index data item, or if 


index-name-3 is related to the same table as index-name-l, no 
conversion takes place. 


bs If identifier-l is an index data item, it may be set equal to 
either the contents of index-name-3 or identifier-3, where 
identifier-3 is also an index data item. Literal-l cannot be 


used in this case. 


roe If identifier-1l is not an index data item, it may be set only to 
an occurrence number that corresponds to the value of 
index-name-3. Neither identifier-3 nor literal-l can be used in 
this case. 
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d. The process is repeated for index-name-2, identifier-2, etc., if 
specified. Each time, the value of index-name-3 or identifier-3 
is used as it was at the beginning of the execution of the 
statement. Any subscripting or indexing associated with 


identifier-l, etc., is evaluated immediately before the value of 
the respective data item is changed. 


In Format 2, the contents of index-name-4 are incremented (UP BY) or 
decremented (DOWN BY) by a value that corresponds to the number of 
occurrences represented by the value of Jliteral-2 or identifier-4; 
thereafter, the process is repeated for index-name-5, etc. Each time, 
the value of identifier-4 is used as it was at the beginning of the 
execution of the statement. 
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The SORT statement is used to create a sort file by executing input 
procedures or by transferring records from another file; to sort the records in 
the sort file on a set of specified keys; and, in the final phase of the sort 
operation, to make available each record from the sort file, in sorted order, to 
some output procedures or to an output file. 


General Format: 


DESCENDING 
SORT file-name-1l ON KEY data=-name-1l 
ASCENDING 


bye data=name-2 | 


-DESCENDING 
ON KEY data-name-3 [, data-name-4 ] ... | ... 
ASCENDING 
THRU ] 
INPUT PROCEDURE IS section-name-1l section-name-2_ 
THROUGH 
USING file-name-2 
THRU 
OUTPUT PROCEDURE IS section-name-3 section-name-4 
THROUGH 
GIVING file-name-3 
Syntax Rules: 
A File-name-1 must be described in a sort-merge file description entry 


in the Data Division. Each data-name must represent data items 
described in records associated with file-name-l. 


par Section-name-l represents the name of an input procedure. 
Section-name-3 represents the name of an output procedure. 


= a File-name-2 and file-name-3 must be described in a file description 


entry (not in a sort-merge file description entry) in the Data 
Division. The actual size of the logical record(s) described for 
file-name-2 and file-name-3 must be equal to the actual size of the 
logical record(s) described for file-name-1l. If the data descriptions 
of the elementary items that make up these records are not identical, 
the corresponding records must be described in such a manner to cause 


equal amounts of memory to be allocated for the corresponding records. 
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SORT 


The data-names may be qualified. 


The words THRU and THROUGH are equivalent. 


General Rules: 


Ti 


The KEY data-names are listed from left to right in the SORT statement 
in order of decreasing significance without regard to how they are 
divided into KEY phrases. In the format, data-name-l is the major key 
and data-name-2 is the next most significant key. 


a. When an ASCENDING phrase is used, the sorted sequence will be 
from the lowest to the highest value of KEY according to the 
rules for comparison of operands in a Relation condition. 


b. When a DESCENDING phrase is used, the sorted sequence will be 
from the highest to the lowest value of KEY according to the 
rules for comparison of operands in a Relation condition. 


When more than one record description entry appears in a sort file 
description, the key data items need be described only in one of the 
record description entries. Each key data item must occur in every 
data record of the sort file and must have the same relative position 
and actual format in all records. The PICTURE and USAGE of a given key 
data item must be the same for all records in the sort file. If a_ key 
data item is synchronized or justified, it must be identically 
synchronized or justified in all records in the sort file. The key 
data item descriptions must not contain an OCCURS clause or be 
subordinate to entries containing an OCCURS clause. Keys must be data 
items that do not require subscripting or indexing. The dominant 
record size is set equal to the size of the first record described in 
the sort file description entry (SD) in the Data Division. (See File 
Ordering - Sort and Merge in the COBOL User's Guide.) 


If INPUT PROCEDURE is specified, control is passed to the input 
procedure before file-name-1l is sequenced by the SORT statement. The 
compiler inserts a return mechanism at the end of the last section in 
the input procedure; when control passes from the last statement in 
the input procedure, the records that have been released to 
file-name-1l will be sorted. 


The input procedure, if present, must consist of one or more sections 
which must be written consecutively, and do not form a part of any 
output procedure. The input procedure must include at least one 
RELEASE statement in order to transfer records to the sort file. 
Control must not be passed to the input procedure except when a 
related SORT statement is being executed. The input procedure can 
include any procedures required to select, create, or modify records. 
Three restrictions apply to procedural statements within the input 
procedure: 


input procedure must contain no_ SORT 


P @: 
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Ds The input procedure must contain no transfers of control to 
points outside the input procedure. That is, ALTER, GO TO, and 
PERFORM statements in the input procedure are not permitted to 
refer to procedure-names outside the input procedure. COBOL 
statements that cause an implied transfer of control to USE 
procedures are allowed. 


eam The remainder of the Procedure Division must contain no transfers 
of control to points inside the input procedure. That is, ALTER, 
GO TO, and PERFORM statements in the remainder of the Procedure 
Division are not permitted to refer to procedure-names within the 
input procedure. 


If the USING phrase is specified, all the records in file-name-2 are 
transferred automatically to file-name-1l. When the SORT statement is 
executed, file-name-2 must not be open. The SORT statement will 
automatically perform the necessary OPEN, READ, and CLOSE functions 
for file-name-2. File-name-2 must have a file description entry (not a 
ge file description entry) in the Data Division and must have 

“file properties. The data records of file-name-2 and their 
descriptions must be identical to those of file-name-1l. 


If OUTPUT PROCEDURE is specified, control passes to the output 
procedure of the sort after file-name-1 has been sequenced by the SORT 
statement. The compiler inserts a return mechanism at the end of the 
last section in the output procedure. When control passes from the 
last statement in the output procedure, the return mechanism provides 
for termination of the sort and then sends control to the next 
statement after the SORT statement. Before entering the output 
procedure, the sort can select the next record in sorted order when 
requested. The RETURN statements in the output procedure are the 
requests for the next record. 


The output procedure, if present, must consist of one or more sections 
which must be written consecutively, and do not form a part of any 
input procedure. The output procedure must include at least one RETURN 
Statement in order to make sorted records available for processing. 
Control must not be passed to the output procedure except when a 
related SORT statement is being executed. The output procedure can 
consist of any procedures required to select, modify, or copy the 
records which are being returned, one at a time in sorted order, from 
the sort file. Three restrictions apply to procedural statements 
within the output procedure: 


ae The output procedure must contain no SORT statements or MERGE 
statements. 
ii The output procedure must contain no transfers of control to 


points outside the output procedure. That is, ALTER, GO TO, and 
PERFORM statements in the output procedure are not permitted to 
refer to procedure-names outside the output procedure. COBOL 
statements that cause an implied transfer of control to USE 
procedures are allowed. 


ae The remainder of the Procedure Division must contain no transfers 
of control to points inside the output procedure. That is, ALTER, 
GO TO, and PERFORM statements in the remainder of the Procedure 
Division are not permitted to refer to procedure-names within the 
output procedure. 
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If the GIVING phrase is specified, all the sorted records in 
file-name-l1 are automatically transferred to file-name-3 as_ the 
implied output procedure for this SORT statement. When the SORT 
statement is executed, file-name-3 must not be open. File-name-3 is 
automatically opened before transferring the records and a CLOSE 
file-name-3 is executed automatically after the last record in the 
sort file is returned. File-name-3 must have a file description entry 


(not a sort=merge file description entry) in the Data Division, with 


the same file properties. The data records of file-name-3 and their 
descriptions must be identical to those of file-name-1. 


Segmentation, as defined in the COBOL User's Guide, can be applied to 
programs containing the SORT statement. However, the following 
restrictions apply: 
ae If a SORT statement appears in a section that is not in an 
independent segment, then any input procedures or output 
procedures referenced by that SORT statement must appear: 
Ls Totally within nonindependent segments, or 
2% Wholly contained in a single independent segment. 
D. If a SORT statement appears in an independent segment, then any 
input procedures or output procedures referenced by that SORT 
statement must be contained: 


is Totally within nonindependent segments, or 


ak Wholly within the same independent segment. 


Special Considerations: 


27 74 
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The STOP statement is used to halt the execution of the run unit either 
temporarily or permanently. 


General Format: 


STOP 


mie 


RUN 


Syntax Rule: 


ae 


General 


The literal may be numeric, nonnumeric, or any figurative constant 
except ALL. 

Rules: 
If the RUN option is used, the standard termination procedure is 
instituted for the current run unit. 
If the STOP literal option is used, the literal is displayed upon the 
console display mechanism. When the operator acknowledges the message, 
continuation of the object program begins with the execution of the 
next statement in sequence. The literal used must conform to the rules 
for operands given for the DISPLAY statement. This option is not 
recommended except in unusual circumstances and should never be used 
to terminate the execution of the program. 
If a STOP RUN statement appears in an imperative sentence, it must 


appear as the only or last statement in a sequence of 
imperative-statements. 
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The SUBTRACT statement is used to subtract one, or the sum of two or more, 
numeric data items from one or more items, and set the values of one or more 


items equal to the results. 


Format 1: 
literal-1l , Literal-2 
SUBTRACT coe 
identifier-1l , identifier=-2 


FROM identifier-m [ROUNDED] 
, identiiler=n [ROUNDED] | cee 


| ON SIZE ERROR iViparative-acatoner=| 


Format 2: 


literal-1l , literal-2 
SUBTRACT gees 
2 


identifier-l , identifier- 


FROM 


literal-m | 


identifier-m 


GIVING identifier-n [ROUNDED] 


lon SIZE ERROR imperative-statement| 


Format 3: 
CORR 
SUBTRACT identifier-l 
CORRESPONDING 


PROM ident: fiero | ROUNDED] 


| on SIZE ERROR imperative-statement| 
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Syntax Rules: 


ee 


General 


Ls 


Each identifier must refer to a numeric elementary item except: 


a. In Format 2, where the identifiers that appear only to the right 
of the word GIVING may refer to a data item that contains editing 
symbols. 


De In Format 3, where each identifier must refer to a group item. 


The maximum size of each operand is 18 decimal digits. The composite 
of operands (the hypothetical data item resulting from the 
superimposition of all operands of a given statement, excluding the 
data items that follow the word GIVING, aligned on their decimal 
points) must not contain more than eighteen digits. 


CORR is an abbreviation for CORRESPONDING. 


Rules: 


In Format 1, all literals or identifiers preceding the word FROM are 
added together and this total is subtracted from identifier-m, 
identifier-n, etc., and the differences are stored as the new values 
of identifier-m, identifier-n, etc. 


In Format 2, all literals or identifiers preceding the word FROM are 
added together, the sum is subtracted from literal-m or identifier-m, 
and the result h btraction is stored as the new value of 
identifier-n, id ; etc. 


If Format 3 is used, data items in identifier-l are subtracted from 
and stored into corresponding data items in identifier-2,. 


Refer to the Common Options in Statement Formats paragraph in this 


section for the uses of the ROUNDED, SIZE ERROR, and CORRESPONDING 
options, and multiple results. 
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The TERMINATE statement is used to terminate the processing of a report. 


3 


General Format: 


report-name-1 E report-name-2 | coe 
TERMINATE ~ : 


Syntax Rule: 


dé Each report-name specified in a TERMINATE statement must be defined by 
a report description entry in the Data Division. 


General Rules: 


ie TERMINATE produces all the control footings associated with this 
report as if a control break had just occurred at the highest level, 
i.e., FINAL control break, and completes the Report Writer functions 
for the named reports. The TERMINATE statement also produces the last 
PAGE FOOTING and/or REPORT FOOTING report groups for the named 


reports. 

2s 

as A second TERMINATE for a particular report may not be executed unless 
a second INITIATE statement has been executed for the report-name. If 
a TERMINATE statement has been executed for a report, a GENERATE 
statement for that report must not be executed unless an intervening 
INITIATE statement for the report is executed. 

4. 


Dis TERMINATE does. not close the file with which the report is associated. 
A CLOSE statement for the file must be executed after the TERMINATE 
statement has been executed. The TERMINATE statement performs Report 
Writer functions for individually described report programs analogous 
to the input-output functions performed by the CLOSE statement for 
individually described files. 


6% SOURCE clauses in TYPE CONTROL FOOTING FINAL or TYPE REPORT FOOTING 


report groups refer to the values of the items during execution of the 
TERMINATE statement. 
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The USE statement specifies procedures for input-output label and error 
handling that are in addition to the standard procedures provided by the 
input-output system. It is also used to specify Procedure Division statements 
that are executed just before a report group named in the Report Section of the 
Data Division is produced. 


Format 1: 


file=-name-1 
; file-name-2 | eee 
USE AFTER STANDARD ERROR PROCEDURE ON INPUT ° 
OUTPUT 
L=O 
Format 2: 
BEFORE BEGINNING - REEL 
USE STANDARD FILE 
io AFTER ENDING aAUNIT 
file=-name-1 
; file-name-2] 3% 
LABEL PROCEDURE ON INPUT ° 
OUTPUT 
L-O 
Format 3: 
USE BEFORE REPORTING identifier-1l 
Syntax Rules: 
Ls A USE statement, when present, must immediately follow a _ section 


header in the declarative portion of the Procedure Division and must 
be followed by a period followed by a space. The remainder of the 
section must consist of one or more procedural paragraphs that define 
the procedures to be used. 


as If the file-name phrase is used aS a part of Format 2, the file 


description entry for each file-name must not specify a LABEL RECORDS 
ARE OMITTED clause. 
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In Format 3, identifier-l represents a nondetail report group named in 
the Report Section of the Data Division. An identifier must not appear 
in more than one USE statement. 


No Report Writer statement (GENERATE, INITIATE, or TERMINATE) may be 
written in a procedural paragraph or paragraphs following the USE 
sentence in the declarative portion. 


The USE statement itself is never executed; rather, it defines the 
conditions calling for the execution of the USE procedures. 


If the words BEGINNING or ENDING are not included in Format 2, the 
designated procedures are executed for both beginning and ending 
labels. 


If neither A UNIT, REEL, nor FILE is included, the designated 
procedures are executed for both REEL and FILE labels. The REEL phrase 
is not applicable to mass storage files. 


The same file-name can appear in a different specific arrangement of a 
format. However, the appearance of a file-name in a USE statement must 
not cause the simultaneous request for execution of more than one USE 
declarative. 


No file-name may represent a sort file | 


Rules: 


The designated procedures are executed by the input-output system at 
the appropriate time as follows: 


as In Format 1, after completing the standard input-output error 
routine. 
5 In Format 2, before or after a beginning or ending input label 


check procedure is executed. 
Before a beginning or ending output label is created. 


After a beginning or ending output label is created, but before 
it is written. 


Before or after a beginning or ending input-output label check 
procedure is executed. 


None of the Format 2 procedures will be performed for files that 
are being actively used as the USING or GIVING file in a _ SORT 
statement or a MERGE statement. 


In Format 2, within the procedures of a USE declarative in which the 
USE statement specifies a phrase other than the file-name-l phrase, 
references to common label items need not be qualified by a file-name. 
A common label item is an elementary data item that appears in every 
label record of the program, but at the same time does not appear in 
any data record of this program. Furthermore, a common label item must 
have the same name, description, and relative position in every label 
record. 
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If the INPUT, OUTPUT, or I-O option is specified, the USE procedures 
do not apply, respectively, to input, output, or input-output files 
that are described with the LABEL RECORDS ARE OMITTED clause. 


In Format 3, the designated procedures are executed by the Report 
Writer just before the named report group is produced, regardless of 
page, overflow, or control break associations with report groups. The 
report group may be any type except DETAIL. 


Within a USE procedure, there must be no reference to nondeclarative 
procedures. Conversely, in the nondeclarative portion, there must be 
no reference to procedure=names that appear in the declarative 
portion, except that PERFORM statements may refer to a USE declarative 
having Formats 1, 2, or 3, or to the procedures associated with such a 
USE declarative. 
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The WRITE statement is used to place a logical record on an output file. 
For mass storage files, the WRITE statement allows a specified 
imperative-statement to be executed if the contents of the associated actual key 
data item are found to be invalid. 


Format 1: 
WRITE record-name [ FROM identifier-1 | 


BEFORE identifier-2 LINES 
ADVANCING integer LINES 


AFTER a 


mnemonic=-name 


Frormat..2% 
WRITE record-name | FROM identifier-] | 
INVALID KEY imperative-statement 
Syntax Rules: 


1. The record-name must not represent a sort file | 


Ze The record-name is the name of a logical record in the File Section of 
the Data Division and may be qualified. 


i oe Tdentifier-l and the record area associated with record-name must not 
be associated with the same storage area. 


4. When,.the ADVANCING phrase is specified, the file must be assigned with 
the FOR @ in the SELECT sentence. 


ae When identifier-2 is used in the ADVANCING phrase, it must be the name 
of a numeric elementary item described with no positions to the right 
of the assumed decimal point. 


6. When integer is used in the ADVANCING phrase, it must have a _ positive 
or a zero value. 


Ts When mnemonic-name is used in the ADVANCING phrase, any mnemonic-name 
defined in the SPECIAL-NAMES paragraph is acceptable, although the 
mnemonic-name associated with the TOP IS phrase is preferred. 


General Rules: 


co An OPEN statement must be executed for a file prior to the execution 
of the first WRITE statement for that file. 
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no 


: ip Dp. bet ee 
a SAME RECORD AREA phrase. The logical record is also available to 


WRITE 


The logical record released by the execution of the WRITE comets aie ode 


longer 


eae ae 


the program as a record of other files that are contained in the’ same 
SAME RECORD AREA phrase as the associated output file. 


If the FROM phrase is specified, the value of identifier-l is 
implicitly moved to record=-name (the current output record area). 
Moving takes place in accordance with the rules for the MOVE statement 
without the CORRESPONDING phrase. After the WRITE statement is 
executed, the information in the identifier-l area is available but 
the information in the record-name area is not available. 


Format 1 (Serial Files): 


i 


oe At 


For serial files assigned to magnetic tape, or for serial files that 
utilize the device independence feature of linked mass storage file 
space, the WRITE statement performs the following operations after 
recognizing an end-of-reel condition: 


a The standard ending reel label procedures, and the user's ending 
reel label procedures, if specified by the USE statement. The 
order of execution of these procedures is determined by the JSE 
statement. 


Ds A reel swap. (Reel swap includes rewinding the completed reel 
and returning it to the standby condition.) 


Ces The standard beginning reel label procedures, and the user's 
beginning reel label procedures, if specified by the USE 
statement. The order of execution of these procedures is 


determined by the USE statement. 
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as If identifier-2 is used, the listing is advanced the number of 
lines equal to the current value associated with identifier-2. 


oe If integer is used, the value of integer determines the number of 
lines the listing will be advanced. 


ay If the mnemonic-name associated with the TOP IS phrase in the 
SPFCIAL-NAMES paragraph is used, the listing is advanced to the 
top of the next page. 


Format 2 (Mass Storage Files): 


2/ Tt 


ne 


For files processed in the sequential-access mode, the 
imperative-statement in the INVALID KEY phrase is executed when the 
end of the file is reached and an attempt is made to execute a WRITE 
Statement for that file. The end of the file is defined as being the 
physical end of the allocated mass storage unit. 


For files processed in the random-access mode, the WRITE statement 
implicitly performs the function of the SEEK statement for a specific 


mass storage record. The imperative-statement in the INVALID KEY 
phrase is executed when the contents of the actual key being used to 
locate the mass storage record are found to be invalid. When an 


INVALID KEY condition exists, no writing takes place and_ the 
information in the record area is available for additional processing. 
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THE COBOL LIBRARY 


DESCRIPTION OF THE COBOL LIBRARY 


The library function provides the capability for specifying text that is to 
be copied from a library file. The COBOL library contains text that is available 
to a source program at compilation time. The effect of the compilation of 
library text is the same as if the text were actually written as part of the 
source program. 


An entry in the COBOL library may contain source program text for the 
Environment Division, the Data Division, and the Procedure Division. The library 
is accessed using the COPY clause or the COPY statement. 


COBOL library text is placed on the COBOL library as a function independent 
of the COBOL program. 


COPY Clause 


The COPY clause is used in association with a file-name or data-name in FD, 
SD, RD, record description, and report group description entries. The COPY 
clause is used to direct the compiler to duplicate text from a library into the 


Format 1: 


COPY library-name 


word=-2 
REPLACING word-1 BY identifier-1l 
aia literal-1 
word=-4 
| word-3 BY identifier-2 poe. be 
ee literal-2 


Format 2: 
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Syntax Rules: 


Format 1: 


5 


Format 2: 


When the COPY clause is specified, the library-name is required. The 
library-name must be identical with the name associated with the 
desired text on the library. 


In Format 1, a word is any COBOL word and may be one of the following: 


& Condition-name 
g Data-name 

& File-name 

& Mnemonic-name 


In Format 1, the COPY clause may be specified only at the 01 level in 
data description entries and report group description entries. 


General Rules: 


Format 1: 


The library text is copied from the library and the result of the 
compilation is the same as if the text were actually a part of the 
source program. 


The COPY clause is printed on the annotated source program listing 
preceding the library text to which it refers. 


The text contained on the library must not contain a COPY clause. 
The COPY clause may appear: 


ae In any of the paragraphs of the Environment Division. 


Be In any level indicator entries or in an 01 level-number entry in 


the Data Division. 


S=2 DD25 


Format 1 of the COPY clause represents the American National Standard © 
COPY function and is engaged | J 8 


} 
} 
| 
i 
{ 
| 
| 


6; No other clause may appear in anae ie Broce s as tne Cory Senn 


} Px The copying process is terminated by the end of the library text. 


8. If format or syntax errors are encountered in source lines copied eon 


9. If the REPLACING phrase is used, each occurrence of word-l, word-3, 
etc., in the text being copied from the library is replaced by the 
word, identifier, or literal associated with it in the REPLACING 
phrase. 


10. Use of the REPLACING phrase does not alter the text as it appears on 
the library. 


k Be The COPY clause is written in any of the following forms: 
a. Environment Division - 
SOURCE-COMPUTER. copy-clause. 
OBJECT-COMPUTER. copy-clause. 
SPECIAL-NAMES. copy-clause. 
FILE-CONTROL. copy-clause. 
I-O-CONTROL. copy-clause. 
Db. Data Division, File Section - 
FD file-name copy-clause. 
o™ SD sort-file-name copy-clause. 
| O01 data-name copy-clause. 


a, Data Division, Working-Storage Section - 


01 data-name copy-clause. 
da. Data Division, Report Section - 


RD file-name [ CODE mnemonic-name | copy-clause. 
01 data-name CGopy-clause. 


Format 2: 
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NOTE: Refer to the COBOL User's Guide for information on the use of the 
COPY clause with compressed source deck options. 
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COPY Statement 


The COPY statement is used in the Procedure Division of a COBOL source 
program to incorporate paragraph procedures from the library into the source 
program with the capability for word substitution as text is copied. 


Format 1: 


paragraph-name. | 


section-name SECTION [priority-number ] 
COPY library-name 


word=2 
literal-l 


REPLACING word-l BY 
identifier-l 


word-4 
literal-2 eee © 


identifier-2 


| word=3 BY 


Format 2:3 


NOTE: Paragraph-name and section-name are not part of the statement 
syntax; they are shown only for clarity. 


Syntax Rules: 


Format l: 


Ly When the COPY statement is specified, the library-name is required. 
The library-name must be identical to the name associated with the 
desired text on the library. 


ne In Format 1, a word is any COBOL word and may be one of the following: 
@ Condition-name 
& Data-name 
& File-name 
2 Mnemonic-name 
® Procedure-name 
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a 


Format 2: 


When the COPY statement is used, it must be the first statement in the 
paragraph or section. 


General Rules: 


Format 1: 


i 


Format 1 of the COPY statement represents the American National 
s t dad d | SERS SER EE Rete RECON. LOTS ae Ee CRE 3 a ae ee 


The library text is copied from the Se and the result of the 
compilation is the same as if the text were actually a part of the 
source program. 


The COPY statement is printed on the annotated source program listing 
preceding the library text to which it refers. 


The text contained on the library must not contain a COPY statement. 
The COPY statement may appear only in the Procedure Division. 

No other statement may appear in the same entry as the COPY statement. 
The copying process is terminated by the end of the library text. 


If format or syntax errors are encountered in source lines copied from 


a Bertoni he the compilation results are noe aL clateeeirmieid ne | | ed 


If the REPLACING phrase is used, each occurrence of word-1l, word-3, 
etc., in the text being copied From the library is replaced by the 
word, identifier, or literal associated with it in the REPLACING 
phrase. 


Use of the REPLACING phrase does not alter the text as it appears on 
the library. 


The COPY statement cannot be used to duplicate section-names. 
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eR The COPY statement is written in the following form: 
Procedure Division - 


paragraph-name. 


section-name SECTION [ priority-number] : copy-statement. 


Format 2: 


NOTE: Refer to the COBOL User's Guide for information on the use of the 
COPY statement with compressed source deck options. 
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APPENDIX A 


RESERVED WORDS 


Reserved words are words that may be used in COBOL source programs but may 
not appear as user-defined words. The two types of reserved words are: 


i Keywords 
A keyword is one whose presence is required when the format in which 
the word appears is used in a source program. Within the formats shown 
in this manual, keywords are uppercase and underlined. The three types 
of keywords are: 
: Verbs, such as ADD, READ, and ENTER. 
Ds Required words, which appear in statement and entry formats. 
a Words having a specific functional meaning, such as NEGATIVE, 

SECTION, TALLY, ete. 

ae Optional Words 
Within each format, uppercase words that are not underlined are 
optional words. The presence or absence of optional words within a 
format does not alter the compiler's translation. Misspelling of an 
optional word, or using another word in its place, however, is not 
allowed. 

The following list contains the COBOL reserved words; shading indicates 


nonstandard (American National Standard) reserved words. 
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6000 | 
6000-EIS 


ADVANCING 


AFTER 
ALL 


“ALTER 


ALPHABETIC 


ALTERNATE 


ZIT 


“CLOCK 


AREA (S) 


ea 
AT 
AUTHOR 


-UNITS 


Sad 


COMPUTE 


CONTROL (S) 
COPY 

CORR 

SO ORIN 


ee 


FILE 

FILE-CONTROL 
FILE- LIMIT (S) 

Bo : Rs Be AS aN J 5 718 © 


t=0 
I-O-CONTROL 


INITIATE 
eels 
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INSTALLATION 
INTO 

INVALID 

IS 


JUST 
JUSTIFIED 


KEY (S) 


_LABEL 


on 
BEADING | 


“LINE (S) 
LINE-COUNTER 


“MODE 


ofa 


NEGATIVE 
NEXT 


PERFORM 


“ POSTTION 
POSITIVE 


REPLACING 


A-3 


ee) 


REPORT (S) 
REPORTING 
RERUN 


RIGHT 


RUN 


SECTION 


“SEGMENT - 
SEGMENT-LIMIT 
Caeuay 


Bs G uB 7 ssp a: 
SUM 


DD25A 


2/77 


sR 


VALUE (S) 
VARYING 

WHEN 

WITH 

WORDS 
WORKING-STORAGE 
WRITE 


ZERO (S) 
ZEROES 


PP ees oe Bee 
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mm 


INDEX 


$ COBOL 
$ COBOL 


$ LOWLOAD 
$ LOWLOAD 


6000 WITH EIS 
6000 WITH EIS 
6000 WITH EIS 
6000 WITH EIS 


ABBREVIATIONS 
abbreviations 


ABORT ROUTINE 
abort routine 


ABSOLUTE 
absolute line number 


ACCEPT 
ACCEPT 
ACCEPT 
ACCEPT MESSAGE 
ACCEPT statement 


ACCESS : 
Access and Processing Techniques 
Random Access with Sequential Processing 
Sequential Access with Sequential Processing 


ACCESS MODE 
ACCESS MODE IS RANDOM 
ACCESS MODE IS SEQUENTIAL 


ACTUAL KEY 
ACTUAL KEY 
ACTUAL KEY 
ACTUAL KEY IS phrase 


ADD 
ADD statement 


ADDRESS 
ADDRESS 
ADDRESS 


ADVANCING 
ADVANCING phrase 
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ALIGNMENT 
alignment 
Standard Alignment Rules 
Standard Alignment Rules 


ALL 
ALL literal 
ALL option 
ALL phrase 
ALL phrase 
SEARCH ALL 


ALPHABETIC 
ALPHABETIC 
Alphabetic 
Alphabetic 
alphabetic 
class alphabetic 


ALPHANUMERIC 
Alphanumeric 
Alphanumeric 
alphanumeric 
class alphanumeric 


ALPHANUMERIC EDITED 
Alphanumeric Edited 
Alphanumeric Edited 
alphanumeric edited 


ALTER 
ALTER 
ALTER 
ALTER statement 


ALTERNATE AREAS 
ALTERNATE AREAS phrase 


APPLY 
APPLY BLOCK SERIAL NUMBER ON phrase 
APPLY PROCESS AREA ON phrase 
APPLY SYSTEM STANDARD FORMAT ON phrase 
APPLY VLR FORMAT phrase 


AREA 
SAME AREA phrase 
SAME RECORD AREA 
SAME RECORD AREA phrase 
SAME SORT AREA phrase 
SAME SORT=-MERGE AREA phrase 


ARITHMETIC 
Arithmetic Operation Symbols 
Arithmetic Operators 
Arithmetic Statements 


Multiple Results in Arithmetic Statements 


ARITHMETIC-EXPRESSIONS 
ARITHMETIC~-EXPRESSIONS 
Formation and Evaluation Rules for Arithmetic-Expressions 


ASCENDING 
ASCENDING 
ASCENDING phrase 


ASCENDING phrase 
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ASSIGN 


ASSIGN phrase 5-19 
AT END 

AT END 2-12 

AT END 7-88 

AT END phrase 7-85 

AT END phrase 7-90 
AUTHOR 

AUTHOR PARAGRAPH 4—4 
BCD 

BCD option 6-56 
BEFORE REPORTING 

BEFORE REPORTING 7-104 

BEFORE REPORTING 7-57 
BEGINNING-F ILE-LABEL 

BEG INNING-FILE-LABEL 6-32 
BEGINNING-TAPE-LABEL 

BEG INNING-TAPE-LABEL 6-32 
BINARY 

binary high density 6-56 
BLANK COMMON 

BLANK COMMON phrase 5-20 
BLANK WHEN ZERO 

BLANK WHEN ZERO clause 6-21 
BLOCK 

BLOCK option 5-10 


BLOCK CONTAINS 
BLOC... CONTAINS clause 6-22 


BLOCK SERIAL NUMBER 
APPLY BLOCK SERIAL NUMBER ON phrase 59-25 


BORROW MEMORY 
Borrow Memory Control 9-15 


BORROW TAPES 
Borrow Tapes Control 5-14 


BRACKETS AND BRACES 


Brackets and Braces 3-20 
CALL 

CALL 7-56 

CALL 7-49 

CALL statement 7-28 

CALL USING 7-51 


CHARACTER SET 
character set 3-1 
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CHARACTER-STRING 
character-string 
character-string 
PICTURE Character-Strings 


CHARACTERS 
CHARACTERS option 
Special Characters 
WORDS, CHARACTERS, or MODULES 
WORDS, CHARACTERS, or MODULES 


CHECKPOINT 
Checkpoint Control 
checkpoint dump 


CLASS 
CLASS CONDITION 
class alphabetic 
class alphanumeric 
class numeric 


CLOSE 

CLOSE 

CLOSE 

CLOSE 

CLOSE 

CLOSE statement 
Standard Close File 
Standard Close Reel 


COBOL 
COBOL FUNCTIONAL CONCEPTS 
ENTER COBOL 


COBOL LIBRARY 
DESCRIPTION OF THE COBOL LIBRARY 
USING A COBOL LIBRARY 


CODE 


CODE 
CODE 


CODE clause 


COLLATE COMMERCIAL 
COLLATE COMMERCIAL option 


COLLATING SEQUENCE 
commercial collating sequence 


collating sequences 


COLLATION 
Output File Collation Control 


COLUMN NUMBER 
COLUMN NUMBER clause 


COMMA 
comma 
period, comma, or semicolon 


COMMENT 
Comment Lines 


COMMENT-ENTRY 
comment-entry 
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COMMUNICATION-DEVICE 


COMMUNICATION=DEVICE 5-10 

COMMUNICATION=DEVICE 7-24 

COMMUNICATION=DEVICE 7-40 
COMPILE PHASE1 ONLY WITH SOURCE ERRORS 

COMPILE PHASE1 ONLY WITH SOURCE ERRORS option 5-12 
COMPILER-DIRECTING 

Compiler-Directing Sentence Execution 7-6 

Compiler-Directing Statements and Sentences 7-4 
COMPUTATIONAL . 

COMPUTATIONAL (-1,-2,-3) 6-74 
COMPUTATIONAL=3 

COMPUTATIONAL-3 PACKED SYNCHRONIZED 6-75 

USAGE COMPUTATIONAL=3 3-10 
COMPUTE 

COMPUTE statement 7-34 
CONCEPTS 

COBOL FUNCTIONAL CONCEPTS 2-1 

LANGUAGE CONCEPTS 3-1 

Record Concepts 3-8 
CONDITION 

CLASS CONDITION 7-10 

CONDITION-NAME CONDITION 7-10 

IF condition 7-6 

OVERFLOW condition 6-71 

PAGE condition 6-71 

RELATION CONDITION 7-8 

SIGN CONDITION 7-9 

SWITCH-STATUS CONDITION 7-10 
CONDITION-NAME 

CONDITION=-NAME CONDITION 7-10 

Condition-Name Rules 6-77 

CONDITION-NAMES 3-2 
CONDITIONAL 

Conditional Sentence Execution 7-6 

Conditional Statements and Sentences 7-4 
CONDITIONAL VARIABLE 

conditional variable 6-77 

conditional variable 7-10 

conditional variable 3-2 

conditional variable 3-11 
CONDITIONS 

Abbreviated Combined Relation Conditions 7-13 

CONDITIONS 7-7 

Compound Conditions 7-11 

Evaluation Rules for Conditions 7-14 

Simple Conditions 7-7 
CONFIGURATION 

CONFIGURATION SECTION IN THE ENVIRONMENT DIVISION 5-2 
CONSOLE 

CONSOLE 5-10 

CONSOLE 7-38 

CONSOLE 7-21 
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CONTROL 


Borrow Memory Control 5-15 
Borrow Tapes Control 5-14 
Checkpoint Control 5-13 
CONTROL FOOTING 7-57 
CONTROL FOOTING 6-69 
CONTROL HEADING 6-69 
CONTROL HEADING 7-57 
Error’ Journal Control 5-12 
FLR Mode Control 5-16 
Input Device Positioning Control 5-14 
line control 6-42 
Memory Assignment Control 5-14 
Multiple Reel File Control 5-16 
Output Device Positioning Control 5-15 
Output File Collation Control 5-15 
Output Order Control 5-12 
special control techniques 5-23 
TYPE CONTROL FOOTING 6-62 
TYPE CONTROL FOOTING 6-26 
TYPE CONTROL FOOTING 6-64 
TYPE CONTROL HEADING 6-26 
transfer control 7-59 
transfer of control T=5 
transfers of control 7-65 
transfers of control 7-98 


CONTROL BREAK 


control break 6-69 

control break 7-38 
CONTROLS 

CONTROL (S) clause 6-26 
COPY 

COPY clause 6-27 

COPY clause 8-1 

COPY library-name phrase 5-18 

COPY library-name phrase 5-24 

COPY option 2-15 

COPY option S79 

COPY option 8-3 

COPY statement 8=—5 

COPY statement 7-35 
CORRESPONDING 

CORRESPONDING 7-101 

CORRESPONDING Option 7-17 

CORRESPONDING phrase 7-67 
COUNTERS 

SUM counters 7-57 
CURRENCY 

currency symbol 6-51 
CURRENCY SIGN 

CURRENCY SIGN IS literal option 5-11 
CURRENT=-DATE 

current-date 4-7 
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DATA 


Concept of Classes of Data 3-9 

hierarchy of data 6-34 
low-volume data 7-21 
low-volume data 7-37 
rules for positioning data 3-10 
subdivision of data 6-12 


DATA DESCRIPTION 


CONCEPT OF COMPUTER-INDEPENDENT DATA DESCRIPTION 3-7 

Data Description - Complete Entry Skeleton 6-12 
DATA DIVISION 

Data Division Entries 3-17 

DESCRIPTION OF THE DATA DIVISION 6-1 

FILE SECTION IN THE DATA DIVISION 6-2 

Organization of the Data Division 6-1 

REPORT SECTION IN THE DATA DIVISION 6-4 

WORKING-STORAGE SECTION IN THE DATA DIVISION 6-3 
DATA ITEM 

data item 3-2 
DATA RECORDS 

DATA RECORDS (6-57 

DATA RECORDS clause 6-29 
DATA~-NAME 

data-name clause 6-28 

DATA-NAMES 3-2 

KEY data=-names 7-63 
DATE~COMPILED 

DATE-COMPILED PARAGRAPH 4—7 
DATE-WRITTEN 

DATE-WRITTEN PARAGRAPH 4-6 
DECIMAL-POINT IS COMMA 

DECIMAL-POINT IS COMMA option 5-11 
DECLARATIVES 

DECLARATIVES 7-1 

Declaratives 3-17 

END DECLARATIVES 7-1 
DEFINITIONS 

ENTER DEFINITIONS 7-48 
DELTAS 

Deltas 3-21 
DEPENDING ON 

DEPENDING ON 7-59 

DEPENDING ON phrase 6-39 
DESCENDING 

DESCENDING 6-38 

DESCENDING phrase 7-64 

DESCENDING phrase 1-97 
DESTINATION 

DESTINATION 7-40 
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DETAIL 
DETAIL 
TYPE DETAIL 
TYPE DETAIL 
TYPE DETAIL 


DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY 
DISPLAY (-1,-2) 
DISPLAY statement 
USAGE IS DISPLAY 


DIVIDE 
DIVIDE statement 


DIVISION 
DIVISION HEADER 


Division, Section, and Paragraph Formats 


DOCUMENTATION 
program documentation 


DOWN BY 
DOWN BY 


DUMP 
checkpoint dump 


EDITING 
Editing Rules 
Editing Symbols 
editing sign 
Fixed Insertion Editing 
Floating Insertion Editing 
Simple Insertion Editing 
Special Insertion Editing 
Zero Suppression Editing 


EISF 
EISF or NEISF options 


EJECTION 
page ejection 


ELECT 
ELECT SORT OPTIONS phrase 


ELEMENTARY ITEM 
elementary item 
elementary item 
elementary item 
elementary item 
elementary item 
elementary item 
elementary item 
elementary item 


ELLIPSIS 
The Ellipsis 


ELSE 
ELSE phrase 
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END 
END DECLARATIVES 


END PROGRAM 
END PROGRAM 


END-OF-MESSAGE 
END-OF=-MESSAGE indicator 


END-OF-SEGMENT 
END-OF-SEGMENT indicator 


END-OF-TRANSACTION 
END-OF-TRANSACTION indicator 


ENDING-FILE-LABEL 
ENDING-F ILE-LABEL 


ENDING-TAPE-LABEL 
ENDING-TAPE-LABEL 


ENTER 
ENTER COBOL 
ENTER DEFINITIONS 
ENTER GMAP 
ENTER LINKAGE MODE 
ENTER SPACE=-SAVING 
ENTER statement 
ENTER TIME-SAVING 


ENTRIES 
Data Division Entries 


ENTRY 
Data Description - Complete Entry Skeleton 
File Description - Complete Entry Skeleton 
level O01 entry 
Report Description - Complete Entry Skeleton 
Report Group Description - Complete Entry Skeleton 
Sort-Merge File Description - Complete Entry Skeleton 


ENTRY POINT 
ENTRY POINT 
ENTRY POINT 
ENTRY POINT phrase 
ENTRY POINT USING/GIVING 


ENVIRONMENT DIVISION 
CONFIGURATION SECTION IN THE ENVIRONMENT DIVISION 
DESCRIPTION OF THE ENVIRONMENT DIVISION 
INPUT-OUTPUT SECTION IN THE ENVIRONMENT DIVISION 
Organization of the Environment Division 


EQUALS 
EQUALS 
EQUALS 
EQUALS 


ERROR JOURNAL 
Error Journal Control 


EXAMINE 
EXAMINE 
EXAMINE statement 
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EXIT 
EXIT statement 


EXIT PROGRAM 
EXIT PROGRAM 


EXPONENTIATION 
exponentiation 


FD 
FD 


FIGURATIVE CONSTANT 
figurative constant 
figurative constant 
Figurative Constants 
figurative constants 


FILE 
Conceptual Characteristics of a File 
FILE 
FILE SECTION IN THE DATA DIVISION 
Multiple Reel File Control 
Physical Aspects of a File 
Standard Close File 
Standard File Lock 


FILE DESCRIPTION 
File Description - Complete Entry Skeleton 
Sort-Merge File Description - Complete Entry Skeleton 


FILE-CODES 
file-codes 


FILE-CONTROL 
FILE-CONTROL Paragraph 


FILE-LIMITS 
FILE-LIMIT(S) phrase 


FILLER 
FILLER 
FILLER clause 


FINAL 
FINAL 
FINAL 
FINAL 


FINAL 


FIRST 
FIRST option 


FIRST DETAIL 
FIRST DETAIL 


FIXED INSERTION 
Fixed Insertion Editing 


FLOATING INSERTION 
Floating Insertion Editing 


FLR MODE 
FLR Mode Control 


i 
fo] 
a 
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NO Nh 
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FOOTING 
CONTROL FOOTING 
CONTROL FOOTING 
FOOTING 
OVERFLOW FOOTING 
OVERFLOW FOOTING 
PAGE FOOTING 
PAGE FOOTING 
REPORT FOOTING 
REPORT FOOTING 
TYPE CONTROL FOOTING 
TYPE CONTROL FOOTING 
TYPE CONTROL FOOTING 


FOR LISTING 
FOR LISTING 
FOR LISTING 


FORMAT 
FORMAT CONVENTIONS 
Format Punctuation 
Reference Format Representation 
Division, Section, and Paragraph Formats 


FROM LIBRARY 
FROM LIBRARY 
FROM LIBRARY phrase 


GENERAL FORMAT 
Definition of a General Format 


GENERAL RULE 
general rule 


GENERATE 
GENERATE 
GENERATE 
GENERATE 
GENERATE statement 


GIN 
GIN 


GIVING 
GIVING 
GIVING 
GIVING 
GIVING phrase 
GIVING phrase 


GLAPS 
GLAPS 
GLAPS 


GMAP 
ENTER GMAP 


GMAP coding 


GO TO 
GO TO 
GO TO 
GO TO statement 


GROUP INDICATE 
GROUP INDICATE clause 


imll 
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GROUP ITEM 


group item 6-60 

group item 6-39 

group item 6-19 

group item 2-7 

group item 6-3 

group item 3-9 
GROUPING 

grouping 7-13 
GT IME 

GTIME 7-21 

GTIME IS phrase 5-10 


HARDWARE-NAMES 
hardware-names 5-6 
hardware-names 5-4 


HEADER 

DIVISION HEADER 3-16 

PARAGRAPH HEADER, PARAGRAPH=-NAME, AND PARAGRAPH 3-16 

Procedure Division Header 7-2 

SECTION HEADER 3-16 
HEADING 

CONTROL HEADING 6-69 

CONTROL HEADING 7-57 

HEADING 6-43 

OVERFLOW HEADING 6-69 

OVERFLOW HEADING 7-57 

OVERFLOW HEADING 7-103 

PAGE HEADING 6-69 

REPORT HEADING 6-69 

TYPE CONTROL HEADING 6-26 
HIERARCHY 

hierarchy of data 6-34 
HIGH DENSITY 

binary high density 6-56 
HIGH-VALUE 

HIGH-VALUE 3-4 
HMS 

HMS 5-10 

HMS option 7-23 
I=0 

I-O 7-104 

I-O phrase 7-74 
I-O-CONTROL 

I-O-CONTROL Paragraph 5=23 
IDENTIFICATION 

IDENTIFICATION or ID 6-79 


IDENTIFICATION DIVISION 
DESCRIPTION OF THE IDENTIFICATION DIVISION 4- 
Organization of the Identification Division 4 
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IDENTIFIER 
Identifier 
identifier 
identifier 
identifiers 


IDS SIZE 
IDS SIZE phrase 


IF 
IF condition 
IF statement 


IMPERATIVE-STATEMENTS 
Imperative-Statements and Sentences 


INDEX 
USAGE IS INDEX 
USAGE IS INDEX 


INDEX DATA ITEM 
index data item 
index data items 
index data items 


INDEXED BY 
INDEXED BY 
INDEXED BY 
INDEXED BY 
INDEXED BY 
INDEXED BY phrase 


INDEXING 
Indexing 
Indexing 
indexing 


Restrictions on Qualification, Subscripting, and Indexing 


INITIAL 
INITIAL option 


INITIATE 
INITIATE 
INITIATE statement 


INPUT 
INPUT 
INPUT 


INPUT DEVICE 
Input Device Positioning Control 


INPUT LABEL 
input label 


INPUT PROCEDURE 


INPUT PROCEDURE 
INPUT PROCEDURE 


INPUT-OUTPUT 
INPUT-OUTPUT SECTION IN THE ENVIRONMENT DIVISION 


INSTALLATION 
INSTALLATION PARAGRAPH 
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INTO 


INTO phrase 
INTO phrase 


INVALID KEY 
INVALID KEY 
INVALID KEY phrase 
INVALID KEY phrase 


JUSTIFIED 
JUSTIFIED 
JUSTIFIED 
JUSTIFIED 
JUSTIFIED clause 


KEY 
KEY data-names 
KEY phrase 
KEY phrases 


LABEL 
label checking/writing 


LABEL PROCEDURE 
LABEL PROCEDURE 


LABEL RECORDS 


LABEL 
LABEL 
LABEL 
LABEL 
LABEL 
label 


RECORD(S) clause 
RECORD(S) OMITTED 
RECORD(S) STANDARD 
RECORDS 

RECORDS ARE OMITTED 
records 


LANGUAGE 
LANGUAGE CONCEPTS 


LAST DETAIL 
LAST DETAIL 


LEADING 
LEADING option 


LEVEL 
level 01 entry 
level 66 
level 77 
level 88 


LEVEL INDICATOR 
level indicator 


LEVEL~NUMBER 
Level-number 88 
level-number 
level-number O01 
level-number O01, 66, 77, 88 
level-number 66, 77, or 88 
level-number 88 
Level-Numbers 
level-numbers 
level-numbers 66, 77, and 88 
level-numbers 66, 77, or 88 
special level-numbers 66, 77, and 88 
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LEVELS 
Concept of Levels 


LIBCPY 
LIBCPY option 
LIBCPY option 
LIBCPY option 


LIBRARY 
library text 


LIBRARY-NAME 


COPY library-name phrase 
COPY library-name phrase 


LINE 
line control 


LINE NUMBER 
absolute line number 
LINE NUMBER 
LINE NUMBER. 
LINE NUMBER clause 
relative line number 


LINE-COUNTER 
LINE-COUNTER 
LINE-COUNTER 
LINE-COUNTER 
LINE-COUNTER 
LINE-COUNTER 
LINE-COUNTER Rules 


LINES 
BLANK LINES 


CONTINUATION OF LINES 
Comment Lines 


LINKAGE MODE 
ENTER LINKAGE MODE 


LITERAL 
ALL literal 
CURRENCY SIGN IS literal option 
Literals 
NONNUMERIC LITERALS 
NUMERIC LITERALS 


LOCK 
Standard File Lock 
Standard Reel Lock 


LOGICAL 
Logical Conjunction 
Logical Inclusive Or 
Logical Negation 
logical record 
logical record 


LOW-VALUE 
LOW-VALUE 


LOW-VOLUME 
low-volume data 
low-volume data 


i-15 
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LOWER-BOUND 
LOWER-BOUND 


LSTOF 
LSTOF 


LSTON 
LSTON 


MEMORY ASSIGNMENT 
Memory Assignment Control 


MEMORY SIZE 
MEMORY SIZE phrase 
MEMORY SIZE phrase 


MERGE 
MERGE 
MERGE 
MERGE statement 
merge files 


MERGING 
Merging 


MESSAGE 
ACCEPT MESSAGE 


MNEMONIC-NAME 
FROM mnemonic-name phrase 
UPON mnemonic-name phrase 
MNEMONIC-NAMES 
mnemonic—names 


MODULARIZATION 
MODULARIZATION 
modularization 


MODULES 
WORDS, CHARACTERS, or MODULES 
WORDS, CHARACTERS, or MODULES 


MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE 

MOVE statement 
elementary moves 


MULTIPLE FILE 
MULTIPLE FILE phrase 


MULTIPLE REEL 
MULTIPLE REEL option 


Multiple Reel File Control 


MULTIPLE UNIT 
MULTIPLE UNIT option 


MULTIPLY 
MULTIPLY statement 


DD25 


NEGATIVE 
NEGATIVE 


NEISF 
EISF or NEISF options 


NEXT GROUP 
NEXT GROUP 
NEXT GROUP 
NEXT GROUP clause 


NEXT PAGE 
NEXT PAGE phrase 
NEXT PAGE phrase 


NEXT SENTENCE 
NEXT SENTENCE 
NEXT SENTENCE phrase 


NO DATA 
NO DATA phrase 


NO REWIND 
NO REWIND phrase 


NOT 
NOT 
Use of the NOT Operator 


NOTE 
NOTE sentence 


NUMERIC 

class numeric 
NUMERIC 

NUMERIC LITERALS 
Numeric 

Numeric 

Numeric Operands 
numeric 


NUMERIC EDITED 
Numeric Edited 
Numeric Edited 
numeric edited 


OBJECT PROGRAM 
object program 


OBJECT-COMPUTER 
OBJECT-COMPUTER Paragraph 


OCCURRENCE NUMBER 
occurrence number 
occurrence number 


OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS 
OCCURS clause 
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OCCURS...DEPENDING ON 
OCCURS...DEPENDING ON 


OPEN 
OPEN 
OPEN 
OPEN 
OPEN statement 


OPERANDS 
Nonnumeric Operands 
Numeric Operands 


OPERATOR 
Use of the NOT Operator 
Arithmetic Operators 


OPTIONAL 
OPTIONAL phrase 


OPTIONS 


COMMON OPTIONS IN STATEMENT FORMATS 
EISF or NEISF options 


ELECT SORT OPTIONS phrase 


OUTPUT 
OUTPUT 
OUTPUT 


OUTPUT DEVICE 
Output Device Positioning Control 


OUTPUT FILE 
Output File Collation Control 


OUTPUT LABEL 
output label 


OUTPUT ORDER 
Output Order Control 


OUTPUT PROCEDURE 
OUTPUT PROCEDURE 
OUTPUT PROCEDURE 
OUTPUT PROCEDURE 


OVERFLOW 
OVERFLOW condition 
OVERFLOW FOOTING 
OVERFLOW FOOTING 
OVERFLOW HEADING 


OVERFLOW HEADING 
OVERFLOW HEADING 


OVERLAPPING OPERANDS 
Overlapping Operands 


OVERLAY 
OVERLAY phrase 


PACKED DECIMAL 
packed decimal 
packed decimal 
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PACKED SYNCHRONIZED 
COMPUTATIONAL-3 PACKED SYNCHRONIZED 


PADDING 
padding 


PAGE 
PAGE condition 
PAGE FOOTING 
PAGE FOOTING 
PAGE HEADING 
page ejection 


PAGE LIMITS 
PAGE LIMIT (S) 
PAGE LIMIT(S) clause 
PAGE LIMITS 
PAGE LIMITS 


PAGE-COUNTER 
PAGE-COUNTER 
PAGE-COUNTER 
PAGE-COUNTER 
PAGE-COUNTER Rules 


PARENTHESES 


parentheses 
parentheses 


PERFORM 
PERFORM 
PERFORM 
PERFORM statement 


PERIOD 
period, comma, or semicolon 
Periods 


PICTURE 

PICTURE 

PICTURE 

PICTURE 

PICTURE 

PICTURE 

PICTURE 

PICTURE 

PICTURE Character-Strings 
PICTURE clause 


POPUP 
POPUP option 


POSITION 
POSITION option 
Input Device Positioning Control 
nonstandard positioning 
Output Device Positioning Control 
rules for positioning data 
vertical positioning 


POSITIVE 
POSITIVE 
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PRIORITY-NUMBER 
priority-number 7-3 
priority-numbers 2-13 
priority-numbers 5-6 


PROCEDURE DIVISION 


DESCRIPTION OF THE PROCEDURE DIVISION 7-1 

Procedure Division Body i=2 

Procedure Division Header 7-2 

Procedure Division Segments 7-3 
PROCEDURE-NAME 

procedure-name 7-1 

PROCEDURE-NAMES 3-2 
PROCEDURES 

PROCEDURES 7-1 
PROCESS AREA 

APPLY PROCESS AREA ON phrase 5-25 

PROCESS AREA 7-29 

PROCESS AREA 7-50 

process area 6-40 
PROCESS DEBUG 

PROCESS DEBUG STATEMENTS 3-18 

PROCESS DEBUG STATEMENTS option 5-11 
PROCESSING 

Access and Processing Techniques 2-11 

Random Access with Sequential Processing 2-12 

Sequential Access with Sequential Processing 2-11 
PROCESSING MODE 

PROCESSING MODE IS phrase 5-21 
PROGRAM=-ID 

PROGRAM=-ID 7-49 

PROGRAM=-ID 7-28 

PROGRAM-ID PARAGRAPH 4-3 
PROGRAM-NAME 

program-name 4-3 
PUNCTUATION 

Format Punctuation 3-21 

Punctuation Symbols 3-6 
QUALIFICATION 

Qualification 3-11 

Restrictions on Qualification, Subscripting, and Indexing 3-14 

rules for qualification 3-11 
QUOTE 

QUOTE 3-4 
RANDOM-SEQUENTIAL 

random-sequential technique 2-12 
RD 

RD 6-11 
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READ 
READ 
READ 
READ 
READ statement 


RECORD 

logical record 

logical record 

physical record 
physical record 

RECORD ORDERING 

Record Concepts 

SAME RECORD AREA 

SAME RECORD AREA phrase 


RECORD CONTAINS 
RECORD CONTAINS clause 


RECORD DESCRIPTION 
STRUCTURE OF A RECORD DESCRIPTION 


RECORDING MODE 
RECORDING MODE clause 
recording mode 
recording mode 


RECORDS 
concept of records 
RECORDS phrase 
Working-Storage Records 


REDEF INES 
REDEF INES 
REDEF INES 
REDEFINES clause 


REEL 
REEL 
Standard Close Reel 
Standard Reel Lock 


REFERENCE 
Reference Format Representation 
Reference to Table Items 
UNIQUENESS OF REFERENCE 


REGISTER 
TALLY REGISTER 
Special Registers 


RELATION 
Abbreviated Combined Relation Conditions 
RELATION CONDITION 
Relation Symbols 


RELATIVE 
relative line number 


RELEASE 
RELEASE 
RELEASE 
RELEASE statement 
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REMAINDER 


REMAINDER 7-42 
REMARKS 

REMARKS PARAGRAPH 4-9 
REMOTE 

REMOTE 5-10 

REMOTE 7-38 

REMOTE 7-21 
RENAMES 

RENAMES 7-69 

RENAMES 3-9 

RENAMES 6-34 

RENAMES clause 6-59 
RENAMING 

RENAMING phrase 5-20 
REPLACING 

REPLACING phrase 7-54 

REPLACING phrase 8-3 

REPLACING phrase 8-6 
REPORT 

REPORT FOOTING 7-103 

REPORT FOOTING 6-69 

REPORT HEADING 6-69 

REPORT SECTION IN THE DATA DIVISION 6-4 

REPORT WRITING 2-5 

report group 2-5 

report group 6-68 

report group 6-62 

report group 6-19 

report group 6-35 

report group 6-30 

report groups 6-43 
REPORT DESCRIPTION 

Report Description - Complete Entry Skeleton 6-10 
REPORT GROUP DESCRIPTION 

Report Group Description - Complete Entry Skeleton 6-16 
REPORT WRITER 

Report Writer 6-68 
REPORTS 

REPORT (S) clause 6-61 
RERUN 

RERUN phrase 5-26 
RESERVE 

RESERVE phrase 5-19 

RESERVED WORDS A-1 

Reserved Words 3-7 
RESET 

RESET 6-26 

RESET clause 6-62 
RESTRICTIONS 

Restrictions on Qualification, Subscripting, and Indexing 3-14 
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RESULTANT-IDENTIFIER 
resultant-identifier 


RETENTION-PERIOD 
RETENTION-PERIOD 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN statement 


REWIND 
Rewind 


ROUNDED 
ROUNDED 
ROUNDED 
ROUNDED 
ROUNDED Option 


SAME 
SAME AREA phrase 
SAME RECORD AREA 
SAME RECORD AREA phrase 
SAME SORT AREA phrase 
SAME SORT-MERGE AREA phrase 


SD 
SD 


SEARCH 
SEARCH 
SEARCH ALL 
SEARCH statement 


SECTION 
CONFIGURATION SECTION IN THE ENVIRONMENT DIVISION 
Division, Section, and Paragraph Formats 
FILE SECTION IN THE DATA DIVISION 
INPUT-OUTPUT SECTION IN THE ENVIRONMENT DIVISION 
REPORT SECTION IN THE DATA DIVISION 
SECTION HEADER 
WORKING-STORAGE SECTION IN THE DATA DIVISION 


SECURITY 
SECURITY PARAGRAPH 


SEEK 
SEEK 
SEEK 
SEEK 
SEEK 
SEEK statement 


SEGMENT 
fixed overlayable segment 


fixed permanent segment 
independent segment 


SEGMENT-LIMIT 
SEGMENT=-LIMIT 


SEGMENT-LIMIT 
SEGMENT-LIMIT IS phrase 
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SEGMENTATION 
SEGMENTATION 


SEGMENTS 
Procedure Division Segments 
Program Segments 


SELECT 
SELECT sentence 
SELECTED phrase 


SEMICOLON 
period, comma, or semicolon 
semicolon 


SENTENCE EXECUTION 


Compiler-Directing Sentence Execution 
Conditional Sentence Execution 


Imperative Sentence Execution 
SENTENCE EXECUTION 


SENTENCES 


Compiler-Directing Statements and Sentences 


Conditional Statements and Sentences 
Imperative-Statements and Sentences 
STATEMENTS AND SENTENCES 


SEQUENCE NUMBERS 
SEQUENCE NUMBERS 


SEQUENTIAL-SEQUENTIAL 
sequential-sequential technique 


SET 
SET 
SET statement 


SHADING 
Shading 


SIGN 
editing sign 
SIGN CONDITION 
Standard operation sign 
Algebraic Signs 


SIMPLE INSERTION 
Simple Insertion Editing 


SIZE 
SIZE option 


SIZE ERROR 
SIZE ERROR 
SIZE ERROR 
SIZE ERROR 
SIZE ERROR 
SIZE ERROR Option 


SORT 
ELECT SORT OPTIONS phrase 
SAME SORT AREA phrase 
SORT 
SORT 


i-24 


DD25 


SORT statement 
sort 
sort files 


SORT=-MERGE 
SAME SORT-MERGE AREA phrase 


Sort-Merge File Description - Complete Entry Skeleton 


SORTING 
Sorting 


SOURCE 
SOURCE 


SOURCE Rules 


SOURCE PROGRAM 
source program 


SOURCE-COMPUTER 
SOURCE-COMPUTER Paragraph 


SPACE 
SPACE 


SPACE-SAVING 
ENTER SPACE-SAVING 


SPACES 
SPACES 
spaces 


SPACING 


rules for spacing 
spacing 


SPECIAL INSERTION 
Special Insertion Editing 


SPECIAL-NAMES 
SPECIAL~NAMES 
SPECIAL~NAMES 


SPECIAL-NAMES Paragraph 


STATEMENT FORMATS 
COMMON OPTIONS IN STATEMENT FORMATS 


STATEMENTS 
Arithmetic Statements 


Compiler-Directing Statements and Sentences 


Conditional Statements and Sentences 


Multiple Results in Arithmetic Statements 


PROCESS DEBUG STATEMENTS 
PROCESS DEBUG STATEMENTS option 
STATEMENTS AND SENTENCES 


STOP 
STOP RUN 
STOP statement 


STORAGE 
MASS STORAGE 


SUBSCRIPTING 


Restrictions on Qualification, Subscripting, and Indexing 


Subscripting 
Subscripting 
subscripting 
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SUBTRACT 
SUBTRACT statement 


SUM 
SUM 
SUM counters 
SUM Rules 


SUPPRESSING 
Suppressing table residue 


SWITCH 
SWITCH 
SWITCH 
SWITCH option 


SWITCH-STATUS 
SWITCH-STATUS CONDITION 


SYMBOL 
currency symbol 
SYMBOL phrase 
Arithmetic Operation Symbols 
Editing Symbols 
Punctuation Symbols 
Relation Symbols 
USER-CREATED SYMBOLS 


SYNCHRONIZED LEFT 
SYNCHRONIZED LEFT 


SYNCHRONIZED RIGHT 
SYNCHRONIZED RIGHT 


SYNTAX RULE 
Syntax rule 


SYSOUT 
SYSOUT 
SYSOUT 


SYSTEM STANDARD FORMAT 
APPLY SYSTEM STANDARD FORMAT ON phrase 


TABLE 
Reference to Table Items 
Suppressing table residue 
TABLE HANDLING 
Table Definition 
table element 
table element 


TALLY 
TALLY REGISTER 
TALLYING phrase 


TECHNIQUE 
random-sequential technique 
sequential-sequential technique 
Access and Processing Techniques 
special control techniques 
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TERMINATE 
TERMINATE 
TERMINATE statement 


TEXT 
duplicate text 
duplicate text 
library text 


TIME-SAVING 
ENTER TIME-SAVING 


TIMES 
TIMES option 


TOP OF PAGE 
TOP OF PAGE phrase 


TRANSACTION PROCESSING 


TRANSACTION PROCESSING 
Transaction Processing 


Transaction Processing Applications Programs 


transaction processing 
transaction processing 


TRANSFERS 


transfers of control 
transfers of control 


TYPE 
TYPE CONTROL FOOTING 
TYPE CONTROL FOOTING 
TYPE CONTROL FOOTING 
TYPE CONTROL HEADING 
TYPE clause 
TYPE DETAIL 
TYPE DETAIL 
TYPE DETAIL 


TYPEWRITER 


TYPEWRITER 
TYPEWRITER 


TYPEWRITER 


UNIT 
UNIT 


UNTIL 
UNTIL option 


UNTIL FIRST 
UNTIL FIRST option 


UP -BY 
UP BY 


UPON 
UPON mnemonic-name phrase 


UPPER-BOUND 
UPPER-BOUND 
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USAGE COMPUTATIONAL=-3 
USAGE clause 

USAGE IS DISPLAY 
USAGE IS INDEX 

USAGE IS INDEX 


USE 


USE 
USE statement 
Use of the NOT Operator 


USING 
CALL USING 
USING A COBOL LIBRARY 
USING phrase 
USING phrase 


USING/GIVING 
ENTRY POINT USING/GIVING 


VALUE 
VALUE 
VALUE clause 
VALUE Rule 
value 999 


VALUE OF 
VALUE OF clause 


VARYING 
VARYING option 
VARYING phrase 


VERBS 
CATEGORIES OF VERBS 


VLR FORMAT 
APPLY VLR FORMAT phrase 


WITH SUPERVISOR CONTROL 
WITH SUPERVISOR CONTROL phrase 
WITH SUPERVISOR CONTROL phrase 


WORDS 
lowercase words 
RESERVED WORDS 
Reserved Words 
uppercase words 
WORDS, CHARACTERS, or MODULES 
WORDS, CHARACTERS, or MODULES 
Words 
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WORKING-STORAGE 
Noncontiguous Working-Storage 
WORKING-STORAGE SECTION IN THE DATA DIVISION 
Working-Storage Records 


WRITE 
WRITE 
WRITE 


WRITE statement 
WRITE..-ADVANCING 
WRITE. .-ADVANCING 


ZERO 
ZERO 
ZERO 


ZERO SUPPRESSION 
Zero Suppression Editing 
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